La revue francophone independante pour les utilisateurs des 
Apple 1J[+, //e, //e+, //c™ et Macintosh™ 





Haute resolution sur imprimante Apple 
PostScript : deux programmes 
Un disque virtuel sous CP/M 
Snake, un jeu en assembleur 
Macintosh et presse-papiers 
Prudence ? : EXEC SAVE ! . 
Le Macintosh au telephone m 
L'heure sans carte horloge ^ 
Hard-Copy sur GP500A 
Macintosh : le Bundle 
Analyse multicritere 
Impression Pascal 
Lekit65C02 





l'a€tualite 
les bants d'essai 
les guides d'athat 

le dossier 
les programmes 

bRDINATEUR 
INDIVIDUEL 





LA REFERENCE EN MICRO-INFORMATIQUE 





A L'ORDINAUUR IHDIVlDUfLf f«s rida^mrt, («s conseHters techniques, fes correspondanis a 
i'etranger, /'etfU'pe enliere se mobrfise pour vou» foumtr tons fes mois une information 
complete et de quaiits. U monde de fa micro bouge : i'O.f. tesfe pour vous ies micros et 
logiciels quf apparaissent swr !e marche. II vous di> fe«queJs choisir et pourquoi. Voos eles dejd 
equipi it vous sooha/tei tfrer (e max'mum de voire mochine ? Les speciaJ/sJes de i'O,/. vous tivrenf 
conseifs, programmes inedits et ostuces d'utrlisation. Lisez chaque mois L'OKDIMATtUS IHDIVIDUCL 



Editorial 

Herve Thiriez 



a 



Pages 



Un disque virtuel 

sous CP/M Jean-Frangois 

Rabasse 



Page 6 



THRG sur BMP ou 
ImageWriter 



Jean-Paul 

Fayen 

Page 13 



EXEC SAVE 



//e 



//c 



Andre 
Brunei 

Page 20 



PostScript 



CB S 



Christian Fiard 
Page 21 



//C 



Printer 



Philippe Magnien 



Page 25 



Datheur 



Bruno Finan 
Page 2S 



TOKENisation de 
chaines et equations 
parametriques 

E HO 



G. 

ZwingeLstein 



V77q 



Page 35 



Un composeur sur 
Macintosh 



D. Vmot 
Page 40 



Le Macintosh et le 
'^presse-papiers^' 



Jean-Luc Bazanegue 
Page 44 



Le '^Bundle" et le 
'Tinder'' 



Marianne Sutz 



Page 49 



Analyse multicritere 



Serge Camn 
Page 52 



Hard-Copy sur 

GP500A Jean-Marc Roulon 



//C 



Page 59 



Le kit 65C02 

Pascal Camot P^g^ ^2 



Snake 



3 



//e 



//c 



Philippe Krepper 
Page 52 



MicrO'informations □ 

Jean-Michel GourSvitch Poge 69 



Bibliographie 

Alexandre Duback 



Courtier des Lecteurs G 

Page 72 



Les annonteuTbi ; 

Apple : pages 38 et 39. FF.F : page 4. Infomag : page 76. Ordinateur Individual : page 2. PSI t page. 75. 



Editions MEV - 13, me d'AnJou - 78000 Versailles. DIrecteur de la publication : Hervi Thiricz 



3 



Pom s xi 24 




I.E.F. 

Le Specialiste de ia Micro 
vous propose 

Le Macintosh Plus 

et son TURBO DISK 




Caract^ristiques 
Macintosh plus 

Micro processeur 68000 

128 K ROM integrant dsa 
fonctbns graphiques rapides 
et la gestion de bureau 
Clavier avec bloc numeriqua 

et tojches curseur 
RAM 1 M^ga octet 
extensible a 4 Megas 
Lecteur da disquetta 
800 K integre 
Interface SCSI permetlant 
de relier des peripheriques 
puissants 

System© d'exploitatbn 5,1 
avsc architecture sjperieure 
et memotre cache 




Caract^ristiqu^s 
Mac TURBO DISK 

' DIsque Dur 20 M^ga octets 

■ Tr^a haute viiesae d'accea (le 
plus rapid e du marche) 

' Haute flabilitd 
Syst^me de Suspension 
Brevets 

■ Tr6s faibl9 oonsommation 

■ Domarrago automatique sans 
disquette de boot 

■ Partitionne en nombre 
programmable c£e volumes 

■ Protection de chaque volume 
par mot de passe program- 
mable 

■ Garantie 1 an 



A) Vous §t&s equipe d'un Mac[ntosh 

lEF vous transform© votro Macintosh pour seulement : 

- 4.500 F HT {si vous gIqe Equips d'un 512 K d'origine Apple) 

- 6.500 F HT (si vous Stes 6quif>6 d'un 128 K d'origins ou 6tendu) 

- Pour ces prix, lEF vous change la plaque mere, le leaeur de disquettes et Is clavier, 

- La tiansformalion est garantie 1 a[i par Apple. 

- Ces prIx ne eont valables que pendant una di tr^e limit^e, r^servez des aujourd'hui votre transformation 
-De plus, si vous achetez cette transformation, 




lEF vous offre son TURBO DISK au prix de 11.900 F HT 



B) Vous n'etes pas encore ^quipe d'un Macintosh 

lEF vous Offre Macintosh Plus exceptionnellement pour 24.900 F HT 
ou mieux encore la Promotion speciale lEF de lancement : 

1 Macintosh Plus 1 M^ga + 1 Mac TURBO DISK2()M^ga 34 JQQ F HT (offfeiujuiBe), ) 

!EF propose des conditions spociahs pour les Grands Comptes et les etablissements d'enseignement 
Si vous voulez profiter d'une de ces offres. rsnvoyez vife le coupon r^pnnsa ci-dessous 
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Editorial 



En tant qu'editeur consciencieux. Pom's souffre depuis dejd quelque temps de la richesse des versions de 
I'Apple II : quand nous testons im programme en vue de sa publication, nous essayons de voir s'il 
fonctionne sur Apple fl Plus, lie, He modifie He ; muhiplie par DOS et ProDOS, cela donne huit 
combinaisons... Heureusement que nous avons quelques idees sur ce qui fait qu'un programme a des 
chances d'etre compatible ou non ! 

Jusqu'a present, ces penibles recherches nous etaient a peu pres evitees avec le Macintosh, qui ne 
connaissait que ies versions 128K etSllKo. Helm, I'hnriinn semhle se couvrir de nimges : se rajoute d 
tout cela le MacPlus, et on emend dejd parler du Mac 5I2Ko avec lecieur de 8OOK0. . . Dans ce nurnero, 
nous aidons ies utilisateurs presents etfiiturs du MacPlus en leur donnant des indications sur ces irritants 
problemes de compatibilite. 

Chose promise, helas. . . des aujourd'hui nous devons augmcntcr le prix des disquettcs 5^5 pouces mais 
nous osons ne pas en rougir, vous connaissiez le prix de 55,00 F depuis 1983. 

Void dans ces pages - que vous trouverez, nous iesperons, bien rempUes - un beau progrofnme CPIM : 
un disque virtuel pour les heureux possesseurs de carte 80 colonnes etendue. Si i'on en croit les bulletins 
de sondage que vous nous avez renvoyes nombreux, vous reserverei bon accueil au jeu "Snake" (ou 
'comment cultiver ses reflexes. . ,'). PostScript fait son entree dans ce numero ; rares sont ceux qui ont la 
disposition d'une LaserWriter mais I'aspect "Forth" de la chose ne devraitpas laisser indifferent. 

Pas moins de 1280 points par ligne : c'est la resolution, soment inexploitee, de votre Imprimante Apple ; 
il n'en sera plus ainsi, car nous vous proposons un programme qui redonnera d vos courbes 
mathematiques la finesse que vous souhaitiez obtenir. Toujours au chapitre des imprimantes, c'est d la 
GP500 que nous donnons un programme, de Hard-Copy. En plus des rubriques habituelles, vous 
ddcouvrirez un miliiaire Pascal, une sauvegarde DOS avec numeros de version. Van et la fnaniire de 
'tokeniser les chaines, et enfin Datheur, un udlitaire dont la valeur pedagogique n'ecltappera pas. 

Les numeros 22 et23 proposaient des "Composeurs telephoniques" pour Apple !!+, lie et lie ; il n'y avait 
aucune raison pour cela s'arrete Id. . . Les utilisateurs du Macintosh trouverons done dans ce numero le 
schema de cette petite 'interface' , ainsi qu'un programme Basic permettant son utilisation immediate. 
Dans un autre registre, plus pointu certes, vous trouverez dans le "cahier Mac" deux routines en 
assembleur propres dfaciiiter le travail du programmeur. A noter que le respect des notions exposees 
dans cet article permettrait a nombre de produits commerciaux de ressembler d des programmes 
'Macintosh' ... Ilenvade mime pour un autre article, baptise "Le bundle et le finder" . 

Nous vous donnons rendez-vous d cette grande fete anmtelle qu'est Apple Expo ; Pom's vous y 
accueillera avec plaisir. N'oubliez pas d'emporter ce numero : vous entrerez d demi-tarif ! 

Hervi Thiriez 
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U n disque wtud sous CPIM 



J-F Rahasse 



Le RAMdisk ou disque 
virtuel, represente le 
mode d'utiltsation le plus 
souplc de cartes 
d'extension memoire. II offre les 
services d'un disque de capaciie 
reduite mais de cout nul et de 
Vitesse d'acc&s trts elevee. 

De tels atilitaires existent mr 
Apple, pour fonctionner sous 
DOS 3.3 ou CP/M, proposes par 
Ics fabricants d'cxtcnsions 
memoire (Legend 128 KDE, 
Titan etc.), Dans le cas particulier 
de I'extension 64Ko dc I'Applc 
//e (carte 80 colones etendue), uti 
RAMdisk est implante par 
PtoDOS, d'autres sont 
disponibles pour le DOS 3.3 (Cf 
Pom's 14 par exemple). Le 
programme pr^sentd ici vient 
completer la collection en 
proposant un RAMdisk de 60Ko 
sous CP/M 2.23, implantd dans 
la RAM auxiliaire. (On peut 
ajouter que I'utilisation d'un 
RAMdisk sous CP/M est trh& 
agrdable, ce systfcme d'exploi- 
tation passant presque autant de 
temps ^ faire toumer ses disques 
qu'S sc mcttrc % la disposition dc 
I'utilisat&ur. 

• La programmation en langage 
machine avec le cycle ^dileur, 
Assembleur avec son fichier 
source, son fichier objet, son 
fichier listing, puis Dcbugcr ct 
re-fiditeur, est acceleree de fa^on 
sensible. 

• Le basic Microsoft offre une 
gestion des fichiers ^ acc^s direct 
uhs putssantc, qui dcvicnt tris 
efficace avec les ftchiere en KAM 
auxUiaLne. 

• Enfin la mise en oeuvre de 
CP/M est moins acrobatique pour 
ceux qui ne poss^dent qu'un seul 
lecteur). 

Configuration 
requise 

Un Apple //e avec sa carte 80 
colonnes etendue, et une carte 



RAMdisk <xetuirB> 

Le programme s'execute puis 
atfiche le message 

M; en ssrvics 

et retoume au CCP. 

Le disque virtuel est pret. II est 
Tep6i6 par M (Memoire). On y 
accede par w.- . On pent y 
transferer les fichiers et utihtaires 
desires par PIP. Pour des 
utilisations reguli^res il est 
pratique de cr^er m fichier Batch, 
coraportant I'appel de RAMdisk 
et tous les transferts souhaites 
(PIP, ED, DDT, etc) lance par 
une commande SUBMIT. 

Une remarque : il peut arriver, en 
cours de travail, un "plantage" (si 
si !), qui oblige ^ rebooter 
complfetement CP/M et done I 
devoir r^implanter le RAMdisk. 
Dans ce cas, le programme 
detecte la presence du disque 
virtuel en Ram auxiliaire et 
affiche le message suivant : 

Un RAMdisk exlste. . . . 
faut-li i'annuier (0/N) 7 

En tapant N, on a alors la 
possibilite de ne pas reinitialiser 
la RAM auxiliaire et done de 
pouvoir T^cuperer ses fichieis dc 
travail qui, confonnement h la loi 
de Murphy, n'etaient pas 
sauvegardes sur une vraie 
disquette lors du plantage. 
Attention, ce contr61e consiste h 
verifier la presence du code de 
gestion du RAMdisk. Si un 
plantage severe a eu lieu Ions de la 
mise au point d'une routine qui 
£^vit en RAM auxiliaire, 
Vm%6gni6 

des fichiers n'est pas a^uree. Si, 
en revanche, on •iouhaite 
rcdcmarrcr sur des bases 
nouvelles il suffit de lepondre O I 
la question. (On peut aussi taper 
Y). 

Fonctionnement 

EUe est tr&s simple. Au niveau Avani de detaillcr le 
commande de CP/M, frapper; fonctionnement de RAMdisk, il 



ZSO avec CP/M 2.23. Attention, 
Microsoft Uvre son CP/M en 
version 44K.0 (fonctionnement 
sur un Apple sans carte langage), 
reconfigurable en 60Ko avec 
I'utilitaire CPM60. 
Ce programme est interface avec 
le CP/M 60Ko (configuration 
normale sur un Apple //e.) 
D'autre part le programme est 
pr6vu pour un systfemc avec 1 ou 
2 lecteurs de disquettes 
maximum. Pour un systfeme I 3 
ou 4 drives, quelques petites 
modifications sont indiquees plus 
loin. 

NB : II existe depuis pen une 
extension Z80 CP/M pour 
I'Apple //c. Ce programme 
devrait pouvoir fitre adapts. 
L'essai n'a pas ^te fait. 

Creation du 
programme 

Avec un assembleur ZSO, editer 
puis assembler le programme 
source, Le programme objet est 
un fichier CP/M .COM, done 
I'adresse d'implantation est 
OlOOH (ddbutdu TPA). 
Sans assembleur, cntrcr le code 
objet hexadecimal en utilisant 
DDT, k partir dc I'adresse 0100. 
(II est indispensable de verifier 
trfes soigneusement le code 
frapp6. Ce programme manipule 
les commutateurs des pages 
memoire et modific les routines 
d'accfes disque de CP/M. Des 
erreurs dc frappe pcuvcnt 
entrainer des effets grandioses I 
rex^cution. Si vous^ n'6ies pas 
sur de votre virtuosite au clavier, 
il n'est pas inutile de faire les 
premiers essais avec une 
disquette copie !) 
Sauvegaidcr le code par : 

SAVE 3 RAMdlsk.COM 

Utilisation 
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est utile de rappclcr le 
fonctioraiement de CP/M et la 
gestion des disques. 
CP/M est constitu^ de trois 
grandes parties : 

• le CCP (Console Command 
Processor) qui ghm toutes Ics 
commanded! de I'utilisateur, en 
provenance du clavier, 

• Ic BDOS (Basic Disk 
Operating System) qui est 
I'interface entre les programmes 
d'application et le systfemc 
d'exploitatioTi, et qui realise 
toutes les fonctions d'cntrees/ 
sorties, acc&s aux fichiers 
disques, gestion des 
peripheriques. Ces fonctions au 
nombre de 41 sont document^es 
dans les ouvrages traitant de 
CP/M. L'accfes au BDOS se fait 
par Tadresse syst&me 0005, avec 
le code de la fonction desiree 
dans le registre C du Z80 ; 

• Le BIOS (Basic Input Output 
System) qui est I'interface entre le 
BDOS et le calculateur sur lequel 
est implante CP/M. Ce BIOS est 
specif ique ^ chaque machine, 
c'est lui qui assure la gestion du 
"Hard". C'est done en pratique 
au niveau du B IOS que se feront 
toutes les modifications ou 
adaptations de CP/M. 

Le BDOS accMe au BIOS par 
I'uitenn^diaire d'une table de 
sauts, qui rassemble les fonctions 
elementaires d'entree-sortie. Cette 
tabic a la structure standard 
suivante : 
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ColdBOOT n'est pas implantee 
puisque le demarragc i froid n'cst 
pas assure par CP/M et le Z80, 
maii par la ROM Apple C6 et le 
6502. 

CP/M gere les disques i partir 
d'une adaptation de la routine 
Apple RWTS (implantee dans le 
Bank 1 k I'adresse $D420 ou 
0D420H), et d'un buffer de 256 
octets situe en 0F800H. Les 
routines de lecture/dcrimre gerent 
ce buffer pour adapter les 
demandes BDOS de secteurs 128 
octets, en acces disque par 
.lectenrs de 256 octets. La 
conimuiiicaiion des paramettcs se 
fait par des tables. Une table 
situee en OF3EO>0F3EB 
(adresses 6502 $3E0-$3EE) 
contient les parametres de 
RWTS : numeros dc piste, de 
secteur, de slot, de drive, code 
erreur, ancien slot, ancien 
drive, etc. 



OFEEA numero de la piste 

demandfe 
OFEEB numero du secteur 

demande 

OFEFA/ 

OFEFB adresse du buffer h lire 

ou ^crire 
GFEEF numero du lecteur en 

cours 

0F3EA code erreur au retour de 
RWTS 

Modification des 
routines BIOS 

Certaines fonctions n'on t pa s a 
etre modifiecs. TRKO, SETTRK, 
SETSECT et SETDMA se 
bomcnt h. rccopicr dans la tabic dc 
parametres la valeur num^rique 
ad&iuaie. 

La fonction SELDSK (implantee 
de 0FE97 a 0FEC5) est appelee 
avec, dans le registre C, le 
numero du lecteur desire (0 pour 
A;, 1 pour B: etc.). Ccne routine 
verifie que le numero d'appel est 
valide (I'adresse OF3B8 contient 
le nombre de lecteurs presents, 
d^tectes lors du Boot), puis 
retourne dans le registre HL 
I'adresse de la table de paramfetres 
du lecteur. Ces tables de 
param&tres, longues de 16 octets 
sont situes en 0FA33, 0FA43, 
0FA53, 0FA63, pour les lecteurs 
A:,B:,C:etD: 

La modification de SELDSK 
consiste I tester si le numero du 
lecteur appel^ correspond au 
RAMdisk repere par M: soit un 
numero 12. Si oui, on recopie le 
numero k I'adresse OFEEF, et on 
retourne dans HL I'adresse des 
parametres RAMdisk, (cette table 
a ete installee en 0FA53, zone 
libre sur un syst^me k deux 
drives). Si un autre lecteur est 
appel^. on rend la main ^ la 
routine SELDSK standard. 

Les fonctions READ et WRITE 
commutent le Bank 1 de la ram 
Apple (ou sont situees toutes les 
routines d'acc^s disque) et 
sautent k la routine de gestion de 
RWTS implantee de 0B247 I 
OB 358, point d'entree lecture en 
0B247. point d'entree ecriture en 
0B257. 

La modification consiste i tester 
si le numero du lecteur cn cours 



JP CDOOT f initialisation d froid 

JP WBOOT /initialisation A chaud 

JF CONSTS ;6tsit de ia console E/S 

JP COUSIN /entree console 

JP CONSOUT ; sortie console 

JP LSTOUT ; sortie Imprim^nte 

JP PTPUNCH ; sortie pertorateur 

jp FTREAD lecture rubati p&rfor6 

JP TRKO ;remls& i t^tti de lecture disque 

JP SEImDRV ;a61ection d'un lecteur de disques 

JP SETTRK r-cholx de la piste 

JF SETSECT rcholx du secteur 

JP SETDMA ,-s.dxeBsG de tmnsfcrt 

JP READ ;lecture d'un secteur 

JP WRITE /Scriture d'un secteuz: 



Sur Apple, sous CP/M 2.23 
60Ko, cette table est implantee de 
OFAOO a 0FA2C : 



Une autre table situee 
en 0FEE8 - OFEFF, 
contient tous les 
parametres neces- 
saires au BDOS 
el au BIOS 
pour la 
gestion du 
disque. 

Ceux qui 
sont indis- 
pensabJes 
h. la bonne 
marche de 
RAMdisk 
sont : 
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Tables des paramStres lecteuis de CP/M 2.23 60k : 

QO 00 00 00 00 00 00 00 TD FE 73 FR C5 FF 70 FF 

DO OD 00 00 00 00 00 00 TQ FE 73 FA Dl FF 8F FF 

FA53 00 00 00 00 00 00 00 00 FD FE 73 FA DD FF Al FF 

FA€3 00 00 00 00 00 00 00 00 FD FE 73 FA E9 FF B3 FF 

Table des paramfetres d'organisation des disquettes : 

FA7S 20 00 03 07 00 flB 00 ?P 00 n.ti 00 On 00 03 00 



(OFEEF) est ccki du RAMdisk, 
et le cas ^cheant ^ detoumer vers 
Ics routines dc lecture/ ccriturc 
RAMdist. En sortie de ces 
routines, on copicra dans 0F3EA, 
un ou un code d'erreur eventuel 
(codes d'eireuis de RWTS). 

Remarques concernant 
[a table des parametres 
disque 

Pour chaque lecteur de disques, 
CP/M utilise une table de 16 
octets contenant les adresses de 
zones de travail. Cette table 
comportc 8 octets reserves h 
CP/M, I'adresse d'un buffer de 
128 octets pour le catalogue des 
disques (cette adresse est la meme 
pour tous les lecteurs : OFEFD), 
i'adresse des param^tres 
d'organisation de la disquette, et 
les adresses de deux autres 
buffers de 12 et 18 octets 
respectivement. Le CP/M Apple 
peut gerer jusqu'^ 4 disques A, 
B, C, D. Microsoft a pr^vu 
I'implantation de 4 tables, de 
0FA33 a 0KA72, et tous les 
buffers de travail necessaires. Si, 
par exemple, on n'utilise que 2 
lecteurs, on peut "cmpruntcr" la 
table prevue pour le drive C: 
0FA53. 

La seule modification i apporter 
conceme I'adresse de la table 
d'organisation de la disquette 
(Heme et I2eme octets). Les 
lecteurs Apple ctant tous 
identiques, une seule table est 
pr6vue pour les 4 lecteurs 
possibles. Cette table, longue de 
15 octets, est implantee en 
0FA73. Pour le RAMdisk, il est 
necessaire de creer une autre 
table, identique h deux octets 
prfis : les 6 et 76mes qui 
contiennent la taille du disque 
sous forme du plus haut numero 
de bloc. Avec un RAMdisk de 
60Ko, done 60 blocs, on devra 
^crire 59 dans cette table soit 3B 
00. 

La table d'organisation de la 
disquette peut Itre placee en 
0FA63 toujours si Ton n'utilise 
que 2 lecteurs. En revanche, sur 
un Apple 6quip^ de 4 lecteurs, il 
faudra creer et placer les deux 
tables de param^tres et tous les 
buffers necessaires. 



Fonctionnement du 
RAMdisk 

Afin de limiter la place occup^e 
en m^moire cenirale, la majoiite 
du code de ^estion du RAMdisk 
est implantee en Ram auxUiaire. 
Seulement une cinquantaine 
d'octets sent en memoire 
principale, lis ont ete places dc 
OFIOO ^ 0F13O, zone inutilisee 
par CP/M car c'est la pile du 
6502. Le 6502 n'etant uulise que 
pour gerer des routines 
d'entrccs-sorties, il est peut 
probable qu'il remplisse sa pile si 
haut. 

Le programme comporte une 
partie preparation de CP/M, et la 
partie gestion du RAMdisk, qui 
reste en machine. 

Lorsqu'on lance le programme, il 
commence par comparer les 256 
premiers octets du code de 
gestion avec le contenu de la ram 
auxiliaire de OFIOO i OF IFF. En 
cas d'identite, un pseudo disque 
est cense exister et la Ram 
auxUiaire n'est pas retnitialisee. 
Scul CP/M est reconfigure. 

Le programme se lecopie ensuite 
en Ram auxiUaire et commute la 
Ram, pour transferer I'execution 
en Ram auxiliaire. Ceci permet la 
mise en place du code de gestion 
du RAMdisk (OFIOO ^ 0F2C7), 
et "rinitialisation" de la piste 3 
(Catalogue CP/M) en remplissant 
de codes E5. 

Le programme rcvient ensuite en 
Ram principale. L'acc&s au code 
de gestion RAMdisk est fait en 
recopiant le debut du code 
(OFIOO a OFIOD) en Ram 
principale. Ce tron^on comporte 
les "portes" d'entrees-sorties et la 
commutation de memoire. 



Pour configurer CP/M il reste k 
installer les trois routines 
modifiees READ, WRITE « 
SELDSK, dc OFIOE k 0F13O, es 
modifier les adresses du vectew 
BIOS afin de pointer ces 
routines. 

Enfin on instaUe la table des 
param&tres de la pseudo disquette 
en 0PA63, et on pointe cette table 
dans le bloc CP/M reserve au 
pseudo disque, instaOe en 0FA53 
[k la place d'un lecteur C:). 
Le programme affiche un 
message et rend la main au CCP. 

Code de gestion du 
RAMdisk 

La routine dc lecture ccriture du 
pseudo disque comporte quatre 
phases : 

Recuperation des paramfetres de 
I'appel disque et transfert de 
I'execution en Ram auxiliaire, 
puis creation d'une pile en Ram 
auxiUaine pour le Z80. 

Calcul d'une adresse memoire 
correspondant aux numeros de 
piste et secteur. 

Les pistes 0,1 ... OD soot placees 
en 00000,01000 .... ODOOO, et la 
piste OE en ODOOO Bank 1. Le 
debut theorique d'une disquette 
CP/M etant la piste du catalogue, 
ct cclui ci etant plac6 en piste 3, il 
taut transformer les numeros de 
pistes OF, 10,11 appel^s par le 
BIX)S en 0,1,2. En cas d'appel 
d'un numero superieur, le 
programme netoume & CP/M avec 
le code 040 dans 0H3HA (code 
I/O Error dc RWTS). 

Transfert du secteur. 
Le transfert est dclicat i cause de 
la commutation des pages de 
memoire. Le secteur RAMdisk 
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pent se trouver dans la Ram 
48Ko ou dans k m^moire I Bank 
commute, dans le Bank 1 ou le 
Bank 2. Le buffer CP^ peut 6trc 
dans la Ram 48Ko ou la memoire 
h Bank commute, ou ^ cheval sur 
les deux. (C'est le cas par 
exemple avec le logiciel ED.COM 
qui charge scs f ichiere en haut du 
TPA, sous I'adresse 0DC06. On 
a done en general un scctcur 
charge de 0AF86 S 0B006). 
Certains transfeits doivent sc 
faire en deux temps, avec transit 
par un secteur temporaire situe en 
0F3O0. 

Pour obtenir un fonctionnement 



tr&s rapide, on a choisi de faire 
les transfcrts par bloc complet en 
utilisant la puissante instruction 
LDIR du Z80, i I'aide de huit 
routines de transfert specifiques ^ 
chaque cas, qui assurent le calcul 
des adresses et les commutateurs 
de memoire h actionner. 

Le resultat est un code plus long 
qu'avcc une routine unique de 
transfert-commutation octet par 
octet, mais le temps d'accfcs sc 
trouve reduit dans un rapport 
quatre. 

Le transfert proprement dit est 
effectue par deux routines COPll 



et C0PI2 situees I'une dans la 
memoire 48Ko I'autre dans la 
memoire ^ Bank. Ces routines 
sont ind^pendantes de I'etat des 
commutateurs memoire puisque 
tous les paramfetres neccssaircs - 
adresses de transfert et 
commutateurs ^ actionner - sont 
passes dans les registres 16 bits 
HL, BC, DE, HL' ,BC' .DE' du 
Z80. 

Retour en Ram principale et au 
BDOS. 



Source 'RAMDISK.TEXT' 





TITLE 








LD 


HL, BLF 














ID 


DE.BLO 




***********irjtit**#^r^****»*****jt-******* ***************** 




ID 


ac^lOOH 














LD 


(BKAUXl ,A 




■ * 


DISQUE 


VIRTUEL SOUS CF/M 2.23 * 




: LD 


A, (DE) 




r i 


VERSION CP/K SOk * 




CPI 






■ * 










JR 






' 9 


APPLE //e 


22S )l * 




JF 


pa, IDENT2 




*■* 






if 




lac 


DE 




- i 


.Tf-H 




JCN 95 * 




jj? 


IDENTl 






* t ****** t t ************* t 


IDENT2 


: LB 


(BKMAIN),A 














JR 


NZ, PKEP 


/PAS DE RAMDISK 


^camUTATEORS 


DES PAGES 


DE MEMOIRE 




LD 


C, 9 














LD 










QE002H 


/RAM PRItfCIP/LLE EN LECTURE 




CALL 


BDCS 


; MESSAGE DE CONFJFtmTION 


FDAOX 


EQO 


0E003H 


;RA» AUXILIRIRE ES LECTURE 




LD 


C, 1 




WRimiN 


EQU 


OEQCiH 


jRAM PPTNr.TPAI.K £N ECRITUEE 




CALL 


BDOS 


JKF.PONSF.? 




EQU 


0B005H 


;RAM AUXILIAIRE EW ECRZTURE 




LD 


HL, CARAC 






EUU 


OEOOSH 


,-RAM A BANC COmUTK FUlN'JlfALS 




LD 


BC,4 




BKAllX 


ror; 


of:oo9h 


;RM1 A BANC COYOTE AUXILIAIRE 




CPIS 






BKl 


ESU 


OEOBDSI 


/BANK 1 




JR 


Z,PREP 


PREPARE LA RAM AVX. 


BKZ 


EQU 


OBOB'JH 


/fjWIVK 2 




JH 


MODIF 


.■CONFIG. CP/M 










CARAC: 


ASC 


•OYay • 


JCAPACTERES VALIDES 










MSG: 


DfU 


OUH, OAH 




fSTfJlSfAUE- DES 








ASC 


'Un BMmdisk 


exist e . ..." 












DFB 


ODH, CAM 




SAVSP 


TOO 


OF080H 


^•SArn/EaARnK POn^EUR DE PILE 




ASC 


•fauL-il 1 • 




OFER 


EQU 


SfiVSPtS 


^CODE OFEPATJOU: 
















LECTVRE, 2 ECRITURE 


/RECOPJE DU CODE COMPLET F.H 


Bfl^f AUXTT.TA IRE 


BOFF 


EDEJ 


nPERi-1 


jADRESSE BUFFER CP/M 










S^CT 


EQU 


BUFFi-S 


,-ADPBSSE SECTEUR DEMANDE 


PREP: 


LD 


HL,DEa 




BANK 


EQU 




JISODE BANK DEMANDE 




LD 


DE. DEB 




TRK 


ECU 


BAmi-2 


,-m DE PISTE CP/M 




U> 


BC, LPROC 




SCT 


COW 


TRK+1 


/Ain BP SECTFim CP/M 




LD 


(HKAUX)jA 














LDIR 






;PARmETRES 






i 
















; TRANSFERT DE 


L-EXECOTIM EN BAM aUXlLIAIRE 




EQU 


■tt'-'h' 


;CCmE M; PQVn IS HAMDISK 












EQU 


OFJOOH 


;STOCKAGE TEMFUKAIKH 




10 


(RDAUXi . A 




STACK 


EQU 


OFIOOH 


.■NOUVELLE PILE Z8C 




W 


(BKAUXI ,A 






EQU 


BOH 


;NB D' OCTETS A TIUUtSFEBER 


r 








f 








zKISE 


EN PLACE 


DU CODE DE TRJtiiSFERT 


was 


EQU 


5 


; ENTREE BDOS 


i 


















m 


HL,BLO 





PROGPAJ*iE RRMDSSK 
ROUTIHE DE PREPARATICii 



LB 

LDIH 



DE, aiF 



EQU 



INITTAlTSATTriH PTSTF. J (DIRECTORY CP/MS 
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9 



LD 

LD 
jji 
LD 

LDIR 



HL, 300011 
A, OESH 
BC, DFFFH 
(HI), A 
DE, 3001H 



r-fiETOOR EK RAM PRINCIPJiJ.B 
LD (BKmiH^.A 



MODIFICATIONS DU Cp/K EM flAH PFtlKCIPALE 



EQU 
XOR 
JJ? 
EQO 
LD 
JR 

SORTIE ESO 

LD 

CO^fiOT: LD 
t 

LGl EQU 
DETOUR EQU 



$ ,-POJWT p'ESrrREE LECJVPE 

A 

S /POINT D' ENTREE BCHITORE 

comut 

$ t POINT DE RETOUn DBS BOUrlNBE 

!BKmiNJ,A 

(BKAUX) , A 



S-BLF 



fll^LANTRTION DE LA 
ROUTINE as DBTOUmBttEtir 



HODIF 


EQU 


S 


;LA SUITE 5' 


EFFECTUE Elf RAM AUXILIAIRE 


,-MISE 


EN FLACB 


m CODE D' ENTREE SORTIE 


















RECUPERATION DES PAWiMETRES ET GREATIOH 




m 


HL, BLO 




D'UNE NOaVELLE PILE 


EN RAM Am. 




11} 


DE, BLF 












LD 






LD 


(OFER) ,A 












LD 


HL, STACK 












LD 


tSAVSP>,SP 




^MISE 


EN PLACE 


DV CODE DE DETOOsmMEilT 




LD 


SP,HL 












LD 


HL, (OFEFAH) 


.■ADR. DU BUFFER CP/M 




ID 


m., nVTD 




LD 


tRUFF) , HI. 






W 


DE.DETF 




LD 


HL, (OFEEAW 


fPlSTE ET SECT, OEmNDES 




LtJ 


BC, LGDET 




LD 


ITRK) , HL 






LDIR 






LD 


(RDAtJX},A 












LD 


t6iRAUX),A 




/MISE 


EM PLACE 


oa BLOC PARANETRES DISOaE 












LD 


HL,Bl.PAn 












iO 


DE, 0rA63tl 


CALCJL DE 


L-ADRE3SE DV SECTEUR DEMANDS 




LD 


BC, LGBL 


ET 


TFANSFERT BLOC BE 


l^S OCTETS 




LDIR 












JMODIF 


TABLE DlSgUE 


CALCAD: 


LD 


A, (TXKI 












CP 


12B 


;SI >= 12, I/a EfiREOB 




w 


nr., tiFMS.'ifi 




JJt 


UC, ERREURU 






m 


{0FA5DH) , HL 




CP 


OFII 


,-£J >- OF, "REPLIEMENT" 










JR 


C, CfliCl 




; HODIF 


VECTEimS 


BIOS 




SVB 


OFH 


; DU NO DE PISTE 








CALCl ! 


LD 


HL,BK2 






LD 


HL,READ 




Cf 


OSH 


;SJ -CE, EN BANKl 




W 


tOFA2Bli} , HL 




JR 


SZ, CALC2 








HL, RRTTB 




LO 


HL, BKl 






jLd 


(0FA2BH),HL 




LD 


A, van 


^NUUVtyiU NO DE PISTE 




LO 


HL. SELDSK 




LD 


ITHK) , A 






LD 


lOFAlai) , BL 


CALC3! 


LD 


IBANK) , HL 





w 

LD 

4P 

DFB 
PFB 
ASC 
DFB 
ASC 



C.9 

D£, MS COST 
BDOS 

ODH, OkH. ODH, OAH 
PMmSRi 'A • 

en service. . 
ODH. OAH 



.■MESSJiCE TERMINE 
iSORTlE BDUS nr Kt'l'UUti 
PAR LE CCP. 



TMPI.ANTATjnN Dtl RAMOISK EN RAM AVXILIAIRE 



BLO EOU S .-DEBUT DU CODE DE TSAHSFERT 

BLF EQU OFIOCH I ET ADRESSE D • IHPtAHtAttCtt 

. PHASE BLF 



ROUTINES D'ACCES: CE CODE EST COff^UN AUX DEUX 

PACES n, PHTNCTPftJ.F. FT *H!(I1.I»IPE 



.■ADRESEE= TRK'409e +SCT*128 



RLCA 
RLCfl 
RLCA 

RLCA 

LD 

LD 

XOR 

LD 

RMA 
U> 

LD 
CALL 
XOR 
ERREUR: LD 

LD: 
LD 
LD 

t.a 

LO 



O, A 

HL, (TRKI 
A 

E, A 

H 

L,A 
HL.DE 
(SECT) . HL 

A 

HL. 403EH 
(BKl) , A 
HL, (SAVSP) 
SP,HL 

(mi^ttif.A 



fTRANSFERT DU SECTSm 

;ERREUR+1= LD A, 40H 

J RECUFBRATION OB LA FILE 



10 
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w 

JR 



SORTIE 



/CODS ERREUR RUTS 
fBETOOR BDQS 



TR7, TRl, TRS, TR8 



IROUTim DE CWKUTATIOti DES PASES £T COFIS DE BLOC 
RESIDE EN BAm AUX 



C0PI2 J 



ID 

LD 

BXX 

LDIR 

LD 

LD 

RET 



m),A 

WE), A 



fSAM EM LECTURE 
.-RAM EN ECRITURE 

;TRANSFERT BLOC 
PREMISE EN LECT. 
; ET ECRITURE DE Ul 
; KAM AUXILlAIHt 



ROUTINE DE TRANSFERT 



TR3: 



OETERMimTJOU DO TYPE DE rRAWWfifil' ;i EftHLTUHK 



TRANSF! LD 
CP 
LD 
ADC 
RLCA 
LD 
LD 
LD 
LD 
CP 
JR 
LD 

TPANSO: XOR 
SBC 
JR 
JSC 
INC 
RL 
XOR 
CP 
JR 
LD 
SOB 
JR 
INC 
INC 
LD 
LD 
LD 
OR 
JR 

PUSH 
JR 
CCF 



A,ll 

OBOU 

A, (OPER) 

A,0 

C,A 

DE, (BOFF) 
HL, OAFFFH 
Af Of OH 

D 

UC, TKAW5(? 

0,1 

A 

HL, DE 

C, TRAHSl 

HL 

C 

c 

A 

H 

HZ, TRANS2 

A, 7FH 

L 

C, TEAHS2 

C 
A 

n, ff 

A, fOFEF) 
A 

Z, TRANS2 

DE 

HL 

TRANS:2 



/OCTET HAUT DE SECT 
JEN HAM BAK/r ? 

;L£cr. 00 ECRIT. ? 



mi! 



;SJ BUFFER CF/M EN FXXX 
; II EST EN MAIN43 



/DUFFER EN BANK MAIN 



TR5: 



7R6: 



BUFFER EN MAUUS 



/BUFFER Eil miNiB 
/SINON, BUFFER A CHEVAL 

f sua iiooa 



;SI £CRITURE, ON S»PILS 
;LES NB D' OCTETS APRES 
J FT AVANT BOOO 



TR7: 



TKMtSl 



LD 

ZD 

LD 

EXX 

CALL 

t.n 

LD 
LD 
SXX 

JF 

r.D 

LD 

LD 

EXX 

JR 

LD 

LD 
LD 
EXX 
JP 

LD 

LD 

LD 

EXX 

CALL 

LD 

LD 

LD 

EXX 

JR 

LD 

LD 

LD 

EXX 

OR 

LD 

LD 

POP 

EKX 

CALL 

POP 

EXX 

CALL 

LD 

LB 

LD 

EXX 

JR 

LD 
LD 



J TABLE DES ADRESSES OES ROUTINES DE TRANSFERT 



HL, (SECT! 
DE, TEMP 
BCfNBOCI 

MOVES 

DE, (BUFF) 
BCNBOCT 

M0YE1 

HI,, (SECT) 
DE, (BOFF) 

ac,mocT 

HOVBl 

HL, (SECTi 

DE, (BOFF} 
BC,NBOCT 

M0VE4 

HL, (BUFFI 

DE.TEMP 

BCNBOCT 

MOVES 
RL, TEMP 
DE, (SECTi 
BC, UBOCT 

MOVES 

HL, (BUFFj 
DE, (SECT) 
BC, NBOCT 

MDVEl 

HL, (BUFFj 

D£,TEtiP 

BC 

MOVEl 
BC 

HOVBJ 
fffv TEMP 
DE, (SECT! 
BC, NBOCT 

MOVES 

HL, (BUFF) 

DE, (SECT) 



HL 


C 






LD 


BC, NBOCT 


XOR 


A 






EXX 




LD 


a, A 






JR 




RL 


c 










LD 


HL, ADTR 


.•LECrmS DE L 'ADItESSE DE 


TRS; 


LD 


HL, (BUFF) 


ADD 


ffi, BC 


/LA ROUTINE DE TRANSFERT 




LD 


DE, (SECT) 


LD 


E, (HLi 






POP 


BC 


INC 


HL 






EXX 




LD 


D, (HL) 






CALL 


MOVEl 


EX 


OB, flip 






POP 


BC 


JP 


tfiLI 


;ET EXECOTIOH 




EXX 
JR 


MOVES 



d ' a ccotnpa^n ement 
dc cc numojro, 
vous trouverez 

on flakier TEXT 
DOS 3.3 di) 
source de 
RAMdisk. Le 
fichisr 
SAMDISK.COM a 
ete ohtenu par 
trans fert de la 
d-isqruette 
criginale CP/H A 
1 'Aide du 
progiaime 
(/vnimtitciiil 
Oiliversal File 
Conversion , Vo us 
utiliserfiz ere 
programme ou 
APDOS pDvr Is 
transferer sur 
voire di.tqfiipttf^ 
CP/M. 



ON 
ON 
DH 



TRl, TRl, TR2, TRl 
TRS, TP3, TR3, TR3 
TRil, TR4, TRS, TR6 



ROUTINES DE DEPLACEMENTS 
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U 



MOVEl : 


W 


BL, fSflMft; 




. DEFHASE 




tn 


(HL),A 










LD 


HL, RDMAIN 










U) 


DE,HRAUX 


/ 








JP 


COPll 










LD 


HL, (BAHK) 


fKOUTINE DE DETOUmBmNT DES APPEIS BIOS 




LD 


(HL},A 










LB 


HL, RDMAIN 


DETO 




$ 




LD 


DE, immm 


OETF 




DETOUR fJWRESSE D • ItPLAm'AIION 




JP 


COPIl 




.PHASE 


DETF 


MOVES 


LD 


/BK2),A 


• 

READ! 


LD 


A, tOFEsru) 




LD 


DEfHRAUX 




CF 






T.n 








m, DFEC6H 




JR 


C0PI2 




JP 


RD 








HBJTE: 


LB 


A, (OFEErH) 




LD 


!BK2),A 




CP 






LD 


DE, WRMAIN 




JP 


SZ, OFECCH 




LD 


BC, BKMAIN 




JP 


m 




iJF. 




seldsk: 


i£) 


A, HAHUSK 


• 








CP 


C 


MOVES : 


LD 


HL, (RANKj 




JP 


tl2, 0FES7II 




LD 


(I'D , A 




Id> 


{OFEEFHI , fl 




LD 


DE, WRA UX 




ZD 


HL, 0FA53H 




LD 


BC.BKAUX 




SEX 






JR 


COPIS 


f 












LSDE7 




?-DE7F 
























RESIDE 


m RUM Avx<e 














;BLt>C D£ FAWiMETRES DISQUES 


C0PI2; 


LD 












LD 


(BC),A 




.DEPHASE 




iXX 




BLPAR: 


DW 






XJ)1R 






DFB 


3, 7,0 




LD 


(BKAUXI , /i 




DM 


3BH , Wfl DE BLOCS- 1 -53 




LD 


INRAOXj , A 




DU 


HFH, UCUH, OCH, J 




RET 




LGBL 




S-BLPAX 



EQU 



$-BLF ,-LONaUEUR OU CODE DE TRMiSFBRT 



Dump hexadecimal de 'RAMDISK.COM' 



0100 


00 


00 


00 


21 


00 


Fl 


11 


02 


02 


01 


00 


01 


32 


09 


EO 


lA 


02S0 


55 


EO 


C9 


7C 




BO 


3A 


S2 


FO 


CE 


DO 


07 


4F 


ED 


SB 


S3 


\)liO 


ED 


Al 


20 


06 


E2 


lA 


01 


13 


IS 


t5 


32 


08 


HQ 


20 


52 


OE 


0290 


FO 


22 




AT 


"J "L" 


FO 


BA 


30 


02 


16 


01 


AF 


ED 


52 


33 


la 


0120 


09 


21 


3C 


02 


CD 


05 


00 


OE 


01 


CD 


05 


00 


21 


38 


01 


01 


02 AO 


23 


oc 


C3 


11 


As 


BC 


20 


le 


3E 


7F 


95 


33 


11 


OC 


3C 


54 


0130 


04 


00 


ED 


Bl 


?8 


3B 


3« 




4F 




SF 


79 


on 


OA 


55 


SE 


02BO 


5F 


3A 


82 


FO 


B7 


28 


07 


D5 


E5 


18 


03 


3F 


CB 


11 


AF 


a 


014 9 


20 


52 


CI 


ED 


S4 


69 


73 


en 


20 


es 


73 


60 


73 


74 


65 


2E 


02C0 


CB 


11 


21 


CS 


Fl 


OS 


5E 


23 


B€ 


EB 


EO 


S9 


Fl 


E9 


Fl 


04 


0150 


21. 


2ii 


2t 


OU 


OA 


f6 


€1 


75 


74 


2U 


69 


6C 


20 


SC 


27 


61 


02DU 


F2 


ES) 


Fl 


11 


i2 


11 


t2 


11 


F2 


11 


F2 


IF 


F2 


IF 


rz 


39 


0269 


6E 


6E 


75 


6C 


55 


72 


20 


20 


28 


4F 


2F 


4E 


29 


3F 


20 


20 


02E0 


F2 


46 


72 


63 


F2 


€3 


F2 


39 


F2 


70 


F2 


2A 


85 


FO 


11 


00 


0170 


24 


21 


03 


01 


11 


03 


01 


OJ 


C7 


02 


32 


05 


EO 


£D 


SO 


32 


02F0 


F3 


01 


SO 


OS 


ds 


CD 


BQ 


F2 


21 


on 


F3 


Fn 


5B 


83 


FO 


01 


OlSO 


03 


EO 


32 


09 


EO 


21 


02 


02 


13 


00 


Fl 


01 


cs 


01 


ED 


BO 


0300 


60 


00 


DS 


C3 


AS 


F2 


2A 


i5 


FO 


ED 


SB 


83 


FO 


01 


SO 


00 


0190 


21 


DO 


30 


3E 


E5 


0] 


FF 


OF 


77 


11 


01 


3D 


ED 


BO 


32 


V8 


0310 


D9 


18 


7C 


2h 


85 


FO 


ED 


5B 


S3 


tv 


01 


30 


00 


D9 


C3 


A5 


OlAO 


EO 


32 


04 


EO 


32 


02 


EO 


21 


02 


02 


11 


00 


Fl 


01 


OE 


00 


0320 


F2 


2A 


63 


FO 


11 


00 


F3 


01 


BO 


00 


D9 


CD 


u 


F2 


21 


00 


Qiao 


ED 


BO 


21 


CA 


03 


11 


OE 


Fl 


01 


23 


00 


ED 


BO 


21 


ED 


03 


0330 


F3 


ED 


53 


85 


FO 


01 


80 


OD 


Dt 


IS 


77 


2A 


83 


FO 


ED 


5fl 


OICQ 


11 


es 


FA 


01 


OF 


00 


ED 


BO 


21 


63 


FA 


22 


5D 


FA 


21 


OE 


0340 


63 


FO 


01 


SO 


00 


DS 


18 


3A 


ZA 


i3 


FO 


11 


00 


F3 


CI 


D9 


OlDO 


Fl 


22 


28 


FA 


21 


19 


Fl 


22 


2B 


FA 


21 


24 


Fl 


22 


IC 


FA 


0350 


CD 


80 


F2 


CI 


D9 


CD 


9A 


F2 


21 


00 


F3 


ED 


iB 


85 


FO 


01 


OlEO 


OE 


09 


11 


EB 


01 


C3 


05 


00 


OD 


OA 


OD 


OA 


4D 


3A 


20 


20 


0360 


80 


00 


D9 


18 


40 


2A 


S3 


FO 


ED 


5S 


85 


FO 


01 


80 


00 


D9 


OlFO 


f5 


6E 


20 


73 


fS 


72 


7S 


69 


63 


es 


2E 


2E 


2E 


2E 


2E 


OD 


0370 


IS 


2A 


2A 


83 


FO 


ED 


SB 


95 


FO 


CI 


DS 


CD 


SO 


F2 


C] 


D9 


0200 


OA 


24 


AT 


18 


08 


3E 


02 


IS 


04 


32 


OS 


EC 


C9 


32 


09 


EO 


O380 


1 g 


lA 


2A 


S7 


FO 


77 


21 


02 


EO 


11 


05 


EO 


C3 


75 


Fl 


2A 


0210 


32 


82 


FO 


22 


00 


Fl 


ED 


73 


80 


FO 


F9 


2A 


FA 


FE 


22 


83 


0390 


8? 


FB 


77 


21 


02 


EO 


11 


04 


EO 


C3 


75 


Fl 


32 


83 


£0 


11 


0220 


FO 


2A 


EA 


FE 


22 




FO 


32 


03 


EO 


32 


05 


EO 


3A 


Si 


FO 


03M 


flS 


F.O 


01 


OR 


EO 


in 


17 


32 


83 


EO 


11 


04 


EO 


01 


OS 


EO 


02J0 


FE 




30 


2F 


FE 


OF 


38 


02 


OB 


OF 


21 


83 


BO 


FE 


OE 


20 


03DO 


IS 


DC 


2A 


37 


FO 


77 


i: 


05 


EO 


01 


09 


EO 


IS 


00 


13 


03 


0240 


oa 


21 


8B 


SO 


3E 


OB 


32 


89 


FO 


22 


H7 


FO 


07 


07 


07 


07 


03C0 


U9 


ED 


tso 


32 


09 


BO 


32 


03 


EO 


C9 


3A 


EF 


FE 


FE 


OC 


C2 


0250 


57 


2k 


8S 


FO 


AF 


5F 


CB 


IC 


IF 


£F 


19 


22 


85 


FO 


CD 


81 


03D0 


C€ 


FE 


C3 


00 


Fl 


3A 


EF 


FE 


FE 


OC 


C2 


CC 


FE 


C3 


03 


Fl 


02eo 


Fl 


AF 


21 


3E 


JO 


32 


83 


EO 


3A 


SO 


FO 


F$ 


33 


02 


EO 


32 


03EO 


3E 


OC 


B9 


C2 


97 


FE 


32 


EF 


FE 


21 


S3 


FA 


C9 


20 


00 


03 


0270 


04 


EO 


32 


EA 


F3 


IS 


92 


77 


12 


D9 


ED 


BO 


32 


03 


EC 


32 


03ro 


07 


00 


3B 


00 


2F 


00 


CO 


00 


OC 


00 


03 


00 


OQ 


00 


00 


00 
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Tres Haute Resolution Sur 
DMP/ImageWriter j^^" ^^^^ ^^^^^ 



yous He& I'heureux 
possesseuF d'une 
imprimante matricielle 
parallSle DMP ou de 
rimprimante serie Ima|eWriter 
de voire marque preferee. Alors 
vous allez pouvoir tracer vos 
courbes avec une resolution bien 
sup^rieure aux 280x192 points de 
Tecran que vous avez ["habitude 
de recopier avec votre programme 
de hardcopy habituel. 
En effet, c'est 1280 points par 
ligne horizontalc, ct autant de 
points que vous voudrez en 
vcrticale (la seule limite ^tant la 
taille de la feuille de papier et 
aussi cclle de la memoire de votre 
Apple II) que vous pourrez 
obtenir avec ce programme 
TABLE. 1280, ecrit en 
assembleur pour avoir un temps 
d'execution convcnable. 

Mode d'emploi 

II suffit de faire : 

RUN DEMO. TABLE. 1280. 

Ce petit programme de demons- 
tration charge TABLE. 1280 et 
vous demande la hauteur de 
papier que vous voulez uliliscr, 
ainsi que la densite du point 
La haute ui est a priori 
quelconque, mais on aura 
eventuellement des problfemes de 
taillc memoire si on demande 
trop. 15 A 20 cm assurent une 
bonne presentation poux faire des 
essais sur une feuille 21 x 29,7. 
La densitd conespond au nombre 
total de points que vous voudrez 
tracer. Plus elle est grande, plus 
la courbc est belle, mais plus 
aussi le temps d'execution est 
long. II n'y a pas de valeur 
id^ale, cela depend de la forme de 
la courbe. Faiie un premier essai 
avec T ou '2' permet d'avoir 
une idee de la courbe obtenue sur 
r&ran hautc-resolution. Au-del^ 
les variables prendront la place 
memoire de la page giaphique et 
la courbe ne sera visible que sur 



1 

2 
3 

4 
S 

1 
8 
9 

10 
12 
12 
13 
14 
15 
16 
1 7 
Ifl 
19 
20 
21 



Source 'T,TABLE.1280' 

Assembleur Big Mac 

J> * 

* TABLE TRACAUTE SUR D.M.P. * 

* * 

* ET IMACEWRITEE * 



TABLE . 2 



(Big Mac) 



* J.P.PAYEti 



Is 26/02/86 



Ce source, sur ta disquette 
d'accompagnement, est Sduvegardi 
en format TEXT pour perrrw.ttrf. 
I' edition avec un aulre assembleur 



S2 


DMP 


$oe 


.-$80 sL DMP, $00 si IMAGSmiTER 


23 


* POfvE 6,128 


au 


POKE 6,0 


24 








25 


iNUtX 




; Index ds le TABLEAO (0 a FF) 


26 


N3SAUT 


$08 


/ abre de jrretour chariot 


2 I 


• POKE s,wsA[;rt 




28 








29 




$09 


; nbre local de paqesj 


30 


* POKE 9,mKt 




31 








32 


HBKCOUR - 


SIE 


/ Vdl. courante ds IfBK 


33 








34 


YCOURANT - 


$18 


I Vdi.l' poui t^um}Jii£iilsi3ns (18,1 


35 








3e 


SAUTCT 


$1A 


i cteuf tit; 


37 


msK 


$13 




3e 


TASADH 


$FD 


,* hiiL . pdcftf i^uuLaaLs TABLEIAU 


39 


TOADR 


$E0 


t Adr. page ds TARI.F.AU 


4S 


* $E2, E3, E4, E5 cunLlennent pa^es 1,2,3,4 


41 




de 1 ' 


adressse) 


42 








43 


ADRX 


$EB 


• Adr BBSS ofe Xi (K) 


44 


ADRY 




; Adresse de r» (K) 


45 


KX 


$F9 


; Adr. eour^jite do Xi 


46 


KY 


$tn 


,"Ac!r. couTante de 1"* 


47 








4a 


TABLEAUO = 


?9000 


Octets graph, a lire 


49 
















Si 


CHRCET 


$B1 




52 


PTSGET 


$DFE3 





53 
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I'imprraiante, ce qui d'ailleurs est 
le but de roperation. Avec une 
densite de '4' on reniplit 
compl6tement la memoire de 
I'Apple 11. (II faudra alors 
supprimer Ic LOMEM de la Ugne 
25 qui protege la page 
graphique). 

Quand le trace est fini taper 
<RETaRN> puis suivant votre 
imprimante tapez 1 (magewriter) 
ou D (MP) quand le programme 
le demande ; il faudra auparavant 
avoir alimente en papier 
rimprimante, en tenant compte 
du fait qu'elle le deroule ^ 
I'envers. Ceci pour avoir la 
courbe dans un sens tel que Ton 
pouira ajouter du texte par-dessus 
si on le desire. 

Le programme de demonstration 
va calculer les points 
representatifs de la fonction Y 
(X) , k I'int^rieur d'une fenetre 
decrite par les variables 
XN,XM,YN,YM (lignes 100- 
160). II est de la responsabilit^ du 
programmeur de modifier cette 
panic du programme qui a 6t6 
volontairement choisie trfes 
simple. II est d'ailleurs possible 
de choisir une fcnStre et une 
hauteur d'impression telles que 
Ton puisse utUiser du papier 
millimetre avec une bonne 
correspondance entre I'echelle de 
la courbe et celle du papier. 
L'auteui en a fait I'experieTice. 

Ligne 300-480, le programme 
calcule le nombrc de retours 
chariots de I'imprimante 
(NSAUT%), les ^cheUes compte 
tenu de la fenStre, le norabre total 
de points (KM) et le nombre de 
pages mimoire correspondantes 
(NBK%). KM est un multiple de 
256 pour simplifier I'analyse du 
programme machine. 

Ligne 500-590 : calcul des points 
des axes horizontaux et verticaux. 
Ccttc panic peut etre d^veloppce 
si Ton veut faire figuier les petits 
traits d'unite sur les axes. On 
veiEera alors k utiliser un nombre 
de points multiple de 256 et d'en 
tenir compte dans le calcul de 
NBK%. 

Ligne 600-670 : calcul des points 
de la courbe k tracer. Chaque 
point est repi^Sent^ par un couple 



54 

5e 
i/ 
58 
59 
SO 
61 
62 
S3 
64 
€5 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
73 
79 
80 
SI 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
9'J 
54 

Si 

96 

97 

98 * 

39 

100 

101 

102 

103 

104 

105 

106 

!07 

loa 

3 0.9 
110 
111 
112 
113 
114 
115 
116 
117 

lis 



SLOT 
DEVICE 
PIC 
COUT 



1 ;PouT la CAfP uniquement 

$C080+lb*SLOT ;Pour la DMP (carte PIC) 
$C0Cl+25e*SLOT /Idem 

$FDED ;Sortie standard (IMAGEHRITER) 



ORG $3E30 



JSR CHRGET 

JSR PIRGET 

STA ADRX 

STY RDRX+1 

JSR CHRGET 

JSR PTRCET 

STJl ADRY 

STY ADRY+1 



f CALL 36400 



f R^cupdre adresse 
; de X* {Q} 



myi f>TABLBAUV ; $90 (a modifier 
si autre implantation de TABLEAUOj 
STX TOAVF+1 



STX TOADRi-2 
INX 

STX TOADR+3 
INX 

STX WADR+4 
INX 

STX TOADR+S 

LDA t<T/\BLEAUO ; $00 

STA TOADR $9000 ds EO.El 

STA TABADR 



$91 
$92 
$93 
$94 



init. cpteur sauts a 



LDY to 

STY SAUTCT 

STY YCOUKAl^T 

STY YCOURANT+l mise i de YCOURANT 



Envoi des caractdrc^ do cont role a 1 ' Imprima/ite * 

LDA f$lB 

JSB OUT 
LDA 

JSR OUT f --> (ESC P) 

* Wise en caracteres proportlonnels 1280 pts par ligna 



LDA t?lB 

JSP OUT 

LDA f"r" 

JSP OUT 



Ssut de ligns arri^re 

LDA f$QO 

JSR OUT 

LDA f$QD 

JSR OVT 



— > IB 72 (ESC r; 
-> 00 

-> position a la marge gauche 
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121 










* TIM 


T 5^ ^ 
^ ± J 




LfU 1 






J ^ ^ 7 


i. £ J 










t$36 


12 7 


JSR 


OUT ,• -> IB 54 31 36 


Jl £ □ 






^ £ J> 


* Esc T 49 54 ^ Esu T 4fl+i 48+6 




* -> 16/144 


= 1/9 pourre pour r. .F. 


1 jS 






I 5^ 






-L J J 


LDA 


i$lB 


jL Jfl 


JSR 


OUT 


i J J 


LDA 


*$3E 


J, Jt* 


JSR 


OUT ! -> 13 3E 


137 






1 39 


* Esc > ; tinldirect ionnello 


J. J J 






ivy 


***-*lHl-**-t******lHl*rt***!H:**t**JH*i:t ************* 


l^i 












143 






J 4 ^ 








* Wise i de 


$900a —> S94FF 










MISEZEBO LDA 


to 


JL V a 


LDX 


TOADR+1 




STX 


TABADR+1 ■■ 


150 


LDY 


to 


J. .jx 


LDX 


#5 




ENCORE STA 


(TABADRj , Y 




INY 


; Y=Q 7 




BUE 


ENCORE f non 




INC 


TABADR-H 


156 


DEX 






BNE 


ENCOSE 








1 

U if 


LDA 




1 60 


STA 


TABADR+1 ; r^inlJiialise TABADR 


1 61 












1 


LDA 


iilOODOOOO 


1 D4 


STA 


HASK 




ms 


CSl 


J. OB 






J. €y 






X DO 


KELMONTl BNE 


mSEZERO 


1 €9 












I 7i 


FORBIT07 LSB 


MASK 


1. 1 £. 


BEQ 


ESCG12aO 


± f .J 


CHI LDX 


HBK 




STX 


NBKCOUR ; initial, multiple de 




LDX 


to ; 256 pLs A campLer 


J 7tf 








LDA 


ADRX / Reiniclal. KX ec KI 


X f O 


STA 


KX 


t T a 


LDA 


ADRX+1 




STA 


KX+1 




LDA 


ADRY 




STA 


KY 




LDA 


ADRY+1 



X%(K),Y%(K). 11 est tout ^ fait 
possible de tracer ensemble 
plusieurs fonclions, la seule 
limite etant toujours la taiUe de la 
memoire pour stocker tous ces 
points. Le travail essentiel de 
TABLE, 1280 consistcra done ^ 
traduire la position de ces points 
en octets Jl cnvoyer <k 
rimprimante. 

Le programme de demonstration 
passe ensulte par une 
visualisation de la courbe. Cette 
paitie ^tant factiltative. 
II 3C tcrmine par I'appel de 
TABLE.1280 : il passe 
NSAUT% ct NBK% comme 
param^tres, ainsi que I'adresse de 
debut dcs tableaux X%(K) et 
Y%(K). 

Fonctionnement de 
TABLE.1280 

^£rit avec I'assembleuj Big Mac, 
ce programme commence par 
recuperer I'adresse des tableaux 
X%(K) et Y%(K). II initialise 
ensuite un certain nombre de 
pointeurs, notamment I'adresse 
de Tespace memoire appeld 
TABLEAUO qui sert I stocker 
temporairement 1280 octets 
envoyer & chaque passe de la tSte 
de rimprtmante. Cette partie est 
la seule se ref^rant i une adresse 
absolue, le teste du programme 
etant totalement relogeable (pas 
de JSR ni de JMP). Done, si I'on 
veut changer la place en m^moiic 
de TABLE.1280 et du 
TABLEAUO sans r6asserabler le 
source, il suffira de changer les 
valeurs $90 et $00 utilisees au 
debut, pour les remplacer par 
Tadresse de son choix. 
Le programme envoie ensuite les 
codes de controle I I'imprimante : 
(ESC-P) pour la mettre en mode 
proportionnel (1280 points par 
li^ne), (ESC-r) pour le 
defilement arriferc du papier, 
(ESC-T 49 54) i^gle I'interligne I 
1/9 poucc, et enfin (ESC->) pour 
une impression unidirectionnelle, 
sinon les axes verticaux seraient 
mal traces. II devrait £tre possible 
en modifiant ces caract^res de 
contr61e d'utiliser d'autres 
imprim antes. 

Suit la panic de recherche et 
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d'impression qui sera expliqu^e 
plus en detail et le programme se 
tennine en remettant I'iniprimante 
dans son etat habituel. 



Recherche et 
impression 

Lc K'*"** point, calculi par le 
programme Basic est done defini 
par ses coordonnecs X%(K), 
Y%(K) dans le plan de la feuille 
de papier. 

Prenons par exemple les 8 
premiferes lignes en bas de la 
feuille, YCOURANT est mis i 
pour commencer, Le programme 
va chercher s'il cxiste une ou 
plusieure valeuis Y%(K) egales ^ 
YCOURANT. Quand il en trouve 
une, il va lire X%(K) et va ranger 
1000 0000 i I'adresse 
TABLEAUO+X%. 

II passe alors i YCOURANT = 
1 ; recommence le meme travail 
et rangera alors 0100 0000. Etc. 
jusqu'a la 8*""* ligne. S'il se 
trouve 2 valeurs differentes de 
Y% pour le meme X%, par 
exemple Y = 5 et Y = 3 pour X = 
149, en faisant un ORA, on 
trouvera ^ I'adresse 
TABLEAUO+149, 0001 0100. 

Lc programme previcnt alors 
I'imprimante qu'il va lui envcyer 
1280 positions de points (ESC G 
49 50 56 48), et eUe imprime les 
8 * 1280 points correspondant 
aux 1 280 octets ainsi dcfinis. On 
regarde si la recherche est 
terminee (comparai&on avec 
NSAUT%) et on recommence le 
travail si ce n'est pas le cas, en 
remettant au pr^alable k tout 
I'espace memoire reserve pour 
TABLEAUX 



Ce programme fonctionnc avcc 
I'interface parallfele PIC d'Apple 
ou avec une interface serie 
branchee sur ImageWriter, les 
codes dc contr61e des deux 
imprimantes etant les memes. 



184 


ST A 


KY+l 






185 










186 


CH CnE LDY 








IDT 

la f 




ivy/ 1 V 
fit Jr^ ^ Jf 


' lit lez oczBt ue r-t rrCJ 




ISS 


CMP 








Han 


RNK 


KSiJTVAN r 


/ s * 1 1 Bst di ff^retnt nn 




ISO 


INT 








191 


LOA 




- lit 2& oct&t d& y%(!<) 




IB^ 


CMF 


rCOUHASTi-l 






195 


BNE 


KSUIVANT 


A s'il est different on 





(3 



134 
195 
1S6 
197 
198 
199 
200 
201 
?Q7 
203 
?0i 
205 
206 
^07 
203 

^ua 

310 

211 
212 
213 
21^ 

215 

22 e 

217 
213 
219 

221 

222 

223 

224 

225 

22$ 

221 

228 

229 

230 

221 

232 

?33 

23< 

235 

236 

237 

233 

239 

240 

241 

242 

243 

244 

245 

246 

247 

243 



II 



12 



13 



14 



WY 


to 


11 est idem 


IDA 


(KXl . Y 


; lit ler octet de X% (K) - 


ThY 






LDA 


TOADR+1. y 


; charcre ni paqe 


3Th 


TABAORi-l 


,' mis ds adr, courante 


LDY 


il 




LDA 


(KX) , r 


,- Jit 2e octet de X% (Kl 


TAY 






LDA 


(TABADR) , Y 




ORA 


iSASK 




STA 


(TABADR) , Y 


; msL Is bit tis TABLEAU 


INC 


KX 




BNE 


11 




INC 


KX+1 




INC 


KX 




UNh- 


12 




INC 


KX+1 




INC 


KY 




BNE 


11 




INC 


KY+1 




INC 


KY 




BNE 


14 




INC 


KY+1 




DEX 


r 


dernier K ? 


BNE 


CHERCHE 


/ f} on 


DEC 


HBKCOUR 




BNS 


ej li* D tf r" 




INC 






BNE 


FORBIT07 




INC 






BNE 


"n n T m rt T 




BNE 


RELMONTl 




LDA 


f$lB 




JSR 


OUT 




LDA 


t"G" 




JSR 


OUT 




WA 


t?31 




JSR 


OUT 




LDA 


f932 




JSB 


OUT 




LDA 


t$38 




JSR 


OUT 




LDA 


tS30 




JSR 


OUT 
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* in A 7 77 7T 


38 30 












251 




48+2 43+3 49+0 


252 




: 1280 positions de points 


253 




























f>TABLEAUO 




2S7 


STA 


TABADFi-1 


reinit. TABADR 


2SS 


LDA 


4<TABLEAU0 






STA 


TABADR 




2 SO 








261 


" Lecture des 1280 octets 


de TABLEAU 


























7 XT'? 


T OB 


to 






^ i/ii NUctK 


t Initialise 


IVDBX 


267 








2SB 


tajtjo tub* r nv 


INDEX 






T n J 


(TABADR) . Y ; 


lit TABLEAU 


£■ TV 


t/iJi< 


OUT 


8 pts imprimea 






INDEX 


INDEX <= SFF 


iC tit 


BNE 


IMPRIME ; 


ouir au saivant 










>74 




TABADR+1 


non A la paqs suivan 


£ f ~J 


IDA 


TABADR-H 




276 


C«F 


i>TABLEAU0+$5Q0 ; dernier ? 


277 


BUE 


IMPRIME 


non 


















i£ U 


* Impression 


des 12B0 pts 




















J? O J 


IDA 


i$OD 




2B4 


JSR 


OUT 






BIT 


IMP 






SPL 


NOLF ;Pas LF si IMAGEffRITER 


5»JJ7 


LDA 


/$0A 




? MM 


JSR 


OUT 




2&& 


NOLF EQU 


* 












291 


* CTRL-M : s^ut de lig/ie 




7 Q7 
























2BS 


IHC 


SAUTCT 






LDA 


SAOTCf 




J? 0^7 


CMP 








BEQ 


FIN 


ovl 


299 








inn 


















BNE 


RELM0NT2 


non — > Wise a zero 












* FIN remise en 4t^t norms. 


de 1' imprimante 


J V J 








30€ 


FIN LDY 


iO 




307 


LDA 


I$1B 




SOS 


JSR 


OUT 






LDA 


r$4i 




310 


JSR 


OUT 


-> IB 41 


321 








312 


* Esa A ! interliqne 1/S 


313 









Recapitulation 

TABLE.t280' 



Apr&s avoir salsi ce csds sous 
moniteur, vous le saavsqardsrez 
par 

3SAVE TABLE. 1230, A$8E30.L$18F 



SE30- 
8E3S- 
SEIO- 
8E4S- 

8E5S- 
SE€Q- 
8E6S- 
8E70- 
BE78- 



20 Bl 

84 EC 

85 ED 
F.a S6 
E4 E8 
85 FD 
84 IS 
DO 20 
BF A9 
20 AF 



00 20 
20 Bl 
84 EE 
F.8 

ee E5 

AO 00 
AS IB 
AF SF 
FB 20 
BF A9 



E3 DF 
00 20 
ta SO 
S< E3 
A3 00 
84 lA 
20 AF 
A9 IB 
AF BF 
OD 20 



S5 E3 
E3 DP 
as El 
E8 86 
85 £0 
84 18 
SF A3 

20 AF 
AS 00 
AF 8F 
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A9 


IB 


20 


AF 


SF 


A9 


D4 


20 


314 




LDA 


f$OD 




8E88- 


AF 


SF 


A9 


31 


20 


AF 


SF 


A3 


315 




JSE 


OUT 


f —> OD ma2"ge ^ducha 


3E90- 


36 


20 


AF 


8F 


A9 


IB 


20 


AF 


31 e 




IDA 


t$lB 




BE9B- 


3F 


AS 


3E 


20 


AF 


BF 


A9 


DO 


31 7 




JSR 


OUT 




8EA0- 


A6 


El 


86 FE 


AO 


00 A2 


05 


31 S 




IDA 


tS3C 




8EA3- 


91 


FD 


CB 


DO 


FB 


BS 


FB 


CA 


ji y 




JSR 


OUT 


,- -> IB 3C 


8EB0- 


DO 


F6 


A3 


Ei 


85 


FE A9 


80 


320 










8EBS- 


85 


IB 


DO 


06 


DO 






IB 






Esc < : IsapTBSsion bidlrectlonnelle 


SECU- 


FO 


6J 


iS A 
Ji C 


09 


36 


IE 


A2 


00 


3S2 










8ECS- 


AS 


EB 


8B 


FS 


A5 


EC 


85 


FA 


J23 




LDA 


t^OA 




8ED0 ~ 


A 


Frt 


p ^ 

J 


FB 






a J 


r u 














32 1 




JSR 


OUT 


-> OA saut de ligne 




n U 


fif\ 
uu 


Dl 


FB 


L 3 




uv 




325 




LDA 


tna 


3EB0 - 
















C3 


Bl 


PB 


C5 


19 


DO 


IS 


AO 








3EE8- 


00 
















326 




JSR 


OUT 




Bl 


F9 


A 8 


B9 


El 


00 


85 






8EFQ- 


FE 


AO 


O'l 


Bl 


F9 


AS 


Bl 


FD 


327 




LDA 


t$66 




8EF3- 


Ob 


IB 




FD E6 


F9 


DO 


v£ 


328 




JSR 


OUT 


/ — > IB 66 (ESC f) 


SFOO- 


B€ 


FA 


E6 


F9 


DO 


02 


se 


FA 


32 <) 










SF08- 


E6 


FB 


DO 


02 


B6 


FC 


E6 


FB 


330 




Seut de ll^ne avant 




3F10- 


DO 


02 


E6 


FC 


CA 


DO 


CI 


C6 


331 










3Fia- 


IE 


DO 


BD 


E€ 


1$ 


DO 


9F 


E6 


332 




LDA 


/$1B 




8F20~ 


18 


DO 


93 


BO 


97 


A3 


IB 


20 


333 




JSS 


OUT 




8FS3- 


AF 


8F 


A9 


C7 


20 


AF 


8F 


A9 


334 




LDA 


f$4E 




8F30— 


J 4- 


?Q 
£V 


AF 


SF A9 


32 


20 


AF 
/IT 


335 




JSR 


OUT 


. — > IB iE (ESC N) 


8F38- 


SF 


A9 


33 


20 


AF 


BF A9 


•3 V 


336 










SF4Q- 


20 


AF 


SF A9 


90 


35 


FE 


A9 


337 






PICA 




RF48— 


OQ 


S5 


FD 


AS 


00 


85 


07 


A4 


338 










8F30^ 


0? 


Bl 


FD 


20 


AF 


SF 


E6 


07 












3F5B- 


DO 


F5 


E6 


FB 


A5 


FE 


C9 


95 


339 








ifin 


gpSO- 


DO 




A9 


340 




RTS 




ED 


OD 


20 


AF 


BF 


24 






oc VO 




1 fl 
1 \j 


05 


A9 


OA 


20 


AF 


or 


341 










SF70- 


£fi 


lA 


A5 


lA 


C5 


OS 


FO 


02 


342 


* 


Envois vers 1 ' imprimante 


3F78- 


DO 




AO 


00 


A9 


IB 


20 


AF 


343 


* 








SF60— 


SF 


A9 


41 


20 


AF 


8F A9 


OD 


344 










QF88— 


20 


AF 


3F 


A9 


IB 


20 


AF 


dF 


345 


OUT BIT 


DMP 


fldentifie 1 'Imprimante 


SFSO- 


A9 


3C 


20 


AF 


BF 


A9 


OA 


20 


346 




BMI 


OMPOUT 




8FSS- 


AF 


8F 


A9 


IB 


20 


AF 


8F 


A? 


347 




JMP 


COUT 


! IMACEWRITER 


8FA0- 


66 


20 


AF 


8F A9 


IB 


20 


AF 


348 


DMPOUT STA 


DEVICE 


/BMP 


3FA8- 


3F 


A9 


4E 


20 


AF 


BF 


CO 


24 


349 


ATTENTE LDA 


PIC 




3FB0- 


06 


30 


03 


4C 


ED 


FD 


8D 


90 


350 




BMI 


ATTENTE 




SFB8- 


CO 


AD 


CI 


CI 


30 


FB 


60 




351 




RTS 







LF 



Programme 

VEMO.TABLE1280' 

10 HEM DEMO . TABLE . 2 

15 REM 

1 6 REM 

20 HIMEM: 36400 

25 LOMEM: 16383 
.30 n$ = (4) 

35 GOSUB 2000: REM EXPLICATIONS 
40 PRINT DS-BLOAD TABLE. 
50 flEM 
€0 REM 

70 REM 

eO REM FONCTION & FENETRE A 

90 REM DEFINIR PAR L ' UTTLISATEUR 

100 REM 

110 REM 

120 DEF FN y(X) = 1 - EXP ( - .2 * X) * 





COS 


<X} 






125 


PI = 


3.14159 






130 


XN = 


Ot REM 


X 


mini 


140 


XM 


5 * Pi! REM 


X 


majci 


150 


¥N = 


0: REM 


Y 


mi/i i 


160 


m = 


1 , REM 


y 





170 HEM 

7flD REM 

J 50 ilEM 

200 REM CHOIX INITIAUX 

205 REM 

210 HOME 

215 INPUT "HAUTEUR EN CM (DE 10 A 30) ";H 

220 PRINT 

235 PRINT 

240 INPUT "DENSITE DU TRACE ( 1 A 2) "/F» 

250 PRINT :AX = 

260 INPUT "TRACE DES AXES (O/N) ? IF 

A$ - "0" THEN AX - 1 

210 PRINT : HTAB b: INVERSE : PRINT "ENVIRO 

N -/J * F*/" MINUTES D'ATTENTE'i NORMAL 

280 PRINT "ATTENDRE LE3 2 BIP POUR PRES3ER 

'RETURN ' " 
385 REM 

290 REM • — 

300 REM CALCUL DE LA PLACE A RESEPVER DANS 

LA MEMOIRE 
310 REM 

330 IF (XN > 0) OR fXM <r 0> OR (AX = 0} THE 
N PV% - 0: GOTO 360: REM PAS D'AXE VEBT 



V 
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H / 0.275: REM NBRE SAUTS TETE 



WSAUTt / (YM - YN) : REM ECHEL 



ICAL A TRACER 

340 PVf = 1 + H / 8.8: 

ERTICAL 
350 REM 
3 SO NSAUTi = 
IMPRIM. 
370 EY = 8 *■ 

LE EN Y 
3R(i RFM 

390 IF (YN > 0) OR (YM < 0} OR (AX = 0) THE 
N Pm = 0: GOTO 420: REM PAS D'AXE HORI 
ZONTAL A TRACER 

400 PH% = F%: REM IfBRE PAGES POUR AXE HORIZ 
QNTAL 

410 REM 

420 EX - 12S0 / (XM - XN) : REM ECHELLE EN X 
430 NBK% = PV% + PHi + 5 * Fi 
440 Sm NBRE DE PAGES MEM A RESERVER 
450 KM = 25e * NSX%: REM HRRF. TOTAL DE POIN 
IS 

Y% (KM) 



480 
490 
435 
500 
505 



DIM XilKMI. 
REM 

REM CALCUL DE L 'AXE VERTICAL 



REM 

IF PV% = THEN JY = - 1; 
510 X0% = - XN * EX I 0.5 
bib FOR JY = 1 TO 256 * PV% 
520 X%(jy - 1} ^ XD% 
525 ¥%(JY - 1} = jy 
530 NEXT JY 
535 JY = JY - 2 
540 REM 

545 REM CALCUL AXE HORIZONTAL 
550 REM 

555 IF Pfl» = THEN m = JY + 1 : 
F.Y + 0.5 
TO 256 * F% 
= 5 * JX / F« 
= YQ% 



GOTO 555 



REM PAS DE C 



IF Pfl» = THEN m = JY + 1: GOTO 610 
560 Y0% = - VW 
5^5 FOR JX = 1 
570 X%{JX + jyj 
5 75 r% (JX + JY) 
580 NEXT JX 
585 KN - JX + JY 
590 REM 
REM 

REM CALCUL DE LA COURBE 
REM 

S = (XM - XN) / 1280 / F%: 
ALCUL 
615 X = XN - S 

FOR K = KN TO KM - 1 
X ~ X s 
Y = FN ¥(X) 
IF Y < YN OR r P YM THEN 670: REM i'TS 
ROBS FENETRE 
650 Xi (K) = (X - XN} * EX + 0.5 
S6Q Yk(K) = (Y - YN) * EY + 0.5 
670 NEXT Kr REM 

745 REM ~— 

750 REM TRACE HSR 

755 REM — 

760 HGR 

765 POKE 49234,0 

770 HCOLOR'- 3 

780 FOR K = TO 1&1 - 1 

790 X - X%(K) / 4.6 

800 Y = 191 - Y%(K) / NSAUT% * 23.8 

810 IF Y < THEN 840 

830 HPLQT X, Y 



595 
600 
€05 
810 



€20 

630 
640 
645 



S40 NEXT A',- REM 

850 PRINT CHR$ (7): PRINT CRRS (7) 
860 INPUT A$ 
870 REM 

900 TEXT : HOME 

920 PRINT "CALCUL TERMim": PRINT : PRINT 

920 PRINT "POUR COMMENCER A IMPRIHER" 

930 PRINT 1 PRINT "(I) POUR L ' IMAGEWRITER" : 

PRINT : PRINT •• (D) FOUR LA OMR " 
940 PRINT : INVERSE : PRINT "ATTENTION, LE 

PAPIER DEFILE A L'ENVERS"; NORMAL 
950 GET A$: IF A$ < > "I" AND AS < > "i " 

AND A$ > "D" AND A$ < > "d" GOTO 95 



960 IF A$ = "D" OR A$ = "d" THEN POKE 6,12 
8 

970 IF AS = "I" OR A$ = "i " THEN POKE 6,0 
980 PRINT ;A = PEEK (49232) 
990 REM 

1000 REM IMPRESSION 

1005 REM 

1010 POKE S,NSAUT% 
1020 POKE 9,NBKi 

1025 it A? = ••D" OR A9 = "d" GOTO 1040 
1030 PRINT D$ "PR tl": PRINT CHR$ (9)"Z" 

1035 REM Ajouter: print chr$ (27); chr$ ( 
68),- CHR$ (128}/ CHR$ (0} si vous n'av 
ez aucui) s^ot de llgne. 

1040 CALL 36400,Xi (0) ,Yi (0) 

1045 PRINT 

1050 PRINT DS'-PRifO" 

1060 TEXT 

1070 HOME 

lOeO PRINT "POUR OBTENIR LA MEME FONCTION" 
1085 PRINT 

1090 PRINT "TAPER "/ : INVERSE : PRINT " RUN 

-;: NORMAL 
1095 PRINT 

1100 PRINT : PRINT : PRINT "POUR MODIFIER L 

A FENETRE" 
llUl PRINT "OU LA FONCTION:" 

1102 PRINT 

1103 PHINT ~ CHANGER LKS LIGNES" 

1104 PRINT "120 A 160 SELON VOS DESIRS"! PR 
INT 

1110 END 
1990 REM 

1995 REM ~ 

2000 REM EXPLICATIONS 

2005 REM 

2010 HOME 

2020 PRINT "CECI EST UN PRGM DE DEMONSTRATT 
ON" 

2030 PRINT : PRINT "ON POURRA OBTENTR DAVAN 

TAGE DE POINTS" 
2040 PRINT "EN SUPPRIMANT LA REPRESFNTATTON 

2050 PRINT 'GRAPHIOUE SUR L'ECRAN' 
2060 PRINT 

2070 PRINT "IL FAUDRA- ALORS SUPPRIMER AUSSI 

2080 PRINT "LE 'LOMEM' DE LA LIGNE 25" 
2090 RETURN 
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Voici un petit piogramTne destine 
a faciliter I'ecriture de 
programmes Basic. En fait, il 
s'agit de deux fichiers TEXT 
ecrits avec AppleWriter. 

Avant d'ecrire un programme 
Applesoft, il faut faire 

RON START L/S 

ou taper au clavier les 2 POKEs 
qui transformeroTit les 
commaTides LOAD et SAVE en 
#OAD et #AVE. Ceci afin d'eviter 
des erreujs. 

Ensuite, pour charger ou 
sauvegarder un programme, il 
suffit : 

• pour charger un programme, 
de faire : 

EXEC LOAD 

On donne le nom du programme 
et il se charge en memorisant son 
nom cn $300,,, avcc un numcro 
de version. 

• pour sauvegarder, un : 

EX^:c SAVE 

lira automatiquement le nom du 
programme en machine, ainsi que 
son numero de version, qui sera 
incremente ; puis, la commande 
SAVE est cxecutee. Si aucun nom 
n'est en memoire, il faudra 
I'entrer au clavier. 
Ceci devrait eviter les 
'ecrasements involontaires'. 



NIX-K : Nous avons remanie les 
deux fichiers EXEC pour les 
rendre un peu plus fiables. A 
rioter que c'est un moyen 
gourmand en place sur la 
disquette, et qu'il faut de temps en 
temps nettoycr la disquette. 
Pouiquoi ne pas faire un fichier 
EXEC qui efface toutes les 
versions dont le numero est 
inferieur S un certain rang ? 



mfB aa!fiai&m®B wemmm 



Programme 'START L/S' 

10 REM START L/S 

15 REM NEFOHCTXONNE PAS SI LE DOS EST SUR LA CARTE LANGA 

20 TEXT : HOME 

30 POKE 43144,35: REM LOAD DEVIENT #OAD \%^Q^ 

40 FOKf 43149,35: REM SAVE DEVIENT fAVE ''" 

50 PRINT " LOAD ET SAVE SONT Il-T/ALIDES" 

60 PRINT " UTILISEZ EXEC LOAD ET EXEC SAVE" 




Fichier EXEC LOAD' 



NB : Les » symbolisent des espaces. II y a un retow chariot d la fin de ce fichier. 
TEXT: HOME :VTAB 4: POKE 769,0 

POKE 11B,0:POKE 43639, : INPUT " 

LOAD: • " ;NP$ :A$=NP$ :POKS 43699, 1 

ER=1;PRINT CHR$(4) "VERIFY "A$:ER=0: POKE 768,137 

IF NOT ER THEN FOR 1=1 TO LENfAi?) : IF MID$(A$, I,l}<>". " TH 

EN NEXT 
IF 1=1 OR I>36 THEN ER=1 

IF NOT ER THEN 1TV-VAL(MTD$ (A$, li 1) ) : IF NV<0 OR NV>99 THEN 
ER=1 

IF NOT ER THEN A$^LEFT$ (A$, I-lf rPRINT "PROGRAMME: "A$" - 
VERSION: "NV:A$=A$-I-" . " : IF NV<1D THEN A$=A$+"0" 

IF NOT ER THEN A$=A$+$TR$ (NV) :LN=LEN(A$) : POKE 810, LN: POKE 
811,NV:F0R 1=1 TO LN: POKE 1 SS+I , ASC (MID$ (A$ , 1 , 1} ) :N 
EXT: PRINT CHR?(4)" fOAD ",-NP? 

IF ER THEN PRINT "ERREUR CHARGEMENT IMPOSSIBLE" 



Fichier EXEC 'SAVE' 



NB : Les ' symbolisent des espaces. 11 y a un retour chariot d la fin de ce fichier. 
TEXT : HOME : VTAB 4 ; BR=0 

MN=0,-IF PEEK(769)<>137 THEN MN-1:P0KE 118,0:POKE 43093,0: 

INPUT " SAVE; 

••'fNP$:POKE 43699,1 
IF m TfiP.N ER=1 :LN=LEN(NPS) .-FOfi 1=1 TO LN:IF MID$ (NP$, I, 1 

" THEN NEXT -.IF LN<=36 AND LN>0 TEEN ER=0 
IF MN AND NOT ER THEN NP$-NP$+" ■ 00" : LN-LN-h3 : POKE S10,LN;P 

OKE 811,0:FOR 1=1 TO LN:POKE 768'i-I,ASC(MID$ <NP$, 1, 1) 

}: NEXT: POKE 766,137 
TP NOT MN THEN PRINT "SAUVEGARDE AUTOMATIQUE" • NP$=" " ; LN=P 

ESK(810}:FOR 1=1 TO LN :NP$=NP^+CHR^ (PEEK (768-I-I) ) : NEX 

T:NP$-LEFT$ iNP$, LN-2} :NV^PEEK (911} -i-li IF NV>99 THEN E 

R=l 

IF NOT MN AND NOT ER THEN POKE 611,NV:IF W<=5 THEN NP$^N 
P$+ "0" 

IF NOT MN THEN NP$=NP$i-STR$ (NV) 

IF ER THEN PRINT "ERREUR - SAUVEGARDE IMPOSSIBLE" 
IF NOT ER THEN PRINT "PROGRAMME: "LEFT^ (NFS, LEN (NP? } -3} " 
- VERSION: "NV: PRINT CHR${4}" /AVE "/NP$ 
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Cette presentaton du 
langa^c PostScript est 
une forme de reponse 
aux lecteurs qui s'inter- 
rogaient sur le programme 
generant certains litres de Pom's. 
Lcs indications donnees ici seront 
directement utilisables par ceux 
qui ont la disposition d'une 
LaserWriter, En revanche, le 
Macintosh n'est pas indis- 
pensable, un Apple // (ou tout 
autre ordinateur dote d'une 
interface Scrie) ct un traitcment de 
texte conviendroTit, c'est 
d'ailleurs la configuration reteniie 
par Pom's. L'heureux utilisateur 
de la LaserWriter Lira avec interfit 
"Macintosh Inside LaserWriter" 
la bible de PostScript en 450 
pages. 

PostScript 

Ce langage est integr^ ^ la 
LaserWriter d'Apple et d'autres 
imprimantes i laser I'ont en 
option. Communement utilise sur 
les machines de photocom- 
position (linotype par exemple), il 
tire sa souplesse et sa portabilite 
(chfere aux Pasc aliens...) du fait 
que les ordres ne sont pas 
reellement des commandes 
d'imprimantes raais plutot une 
description de ia page a impriraer. 
Le langage s'adaptc aux 
caracteristiques de I'imprimante, 
adaptation que le programmeur 
peut controler (resolution 
horizontale et verticale. trame, 
coulcur, saturation, dimensions, 
polices de caract^res, niveaux de 
gris...). II est bien entendu 
particulierement oriente vers le 
graphisme mais trigonometrie, 
logarithmcs, operations logiqucs, 
traitements des chaines ne lui font 
pas defaut : prfes dc 240 
operateurs pour definir toute 
forme ^ impiimer. 

Sur le Macintosh. le.s 'Drivers' 
transforment les textes, foimes et 
motifs crees par MacWrite, 
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MacDraw, etc.. en des ordres 
PostScript, inteipr^tes dans la 
LaserWriter qui les revolt sous 
fomie ASCII. 

Lcs piles 

Possessetirs de calculatrices HP 
et pratiquants du Forth sont ici en 
pays de connaissance, PostScript 
est base sur la gestion d'une pOc 
ou plutot de quatre piles : 

• pile diction naire qui est la 

Uste des commandes connues du 
langage, liste complct^c par 
I'utilisateur en fonction de ses 
besoins ; 

• pile op6ratcur qui peut 
contenir toutes les sortes d'objets 
PostScript sur lesquels on 
travaille. On y met arguments et 
operandes et on y recup&re les 
resultats. Ces objets peuvent etie 
des entiers (jusqu'^ ± 2 147 483 
647 de la base 2 & la base 36 !) 
des reels dc IQ-^^ £i lO^^, des 
tableaux 3 ime seule dimension 
mais 65535 elements comptes a 
partir de 0, des chaines, des 
dictionnaires, etc. ; 

' pile d'execution, inacces- 
sible k I'utilisateur, c'est la pile de 
travail de Po.stScript ; 

• pile d'etat graphtque, 

egalement interne mais accessible 
i I'utilisateur qui peut preserver et 
restaurer des formes, polices, 
niveau de gris, epaisseur de trait 
en cours. 

(1 convient de preciser avant les 
deux exemplcs Ic fonttionncincnt 
de la pile et les possibilites de 
difinitions. 



La pile 

La pile peut cue consideree 
comme une serie de cellules 
superposees dont seule la plus 
haute (et done la plus recemment 
empilee) est accessible. 





Sommet de la pile ^ 











Une addition tcUc que 17 + 6 + 5 
se presente ainsi : 17 6 5 add add 
la pile etant constituee a chaque 
etape comme suit : 



17 


6 


5 
5 


eidd 


cidd 




'W 




^ 6 








17 


17 


-17 


if 


28 













17 6 add 5 add est equivalent, le 
resultat se trouvant toujouis dans 
la cellule la plus haute, 
L'operation (3*2)^(4-1) se 
programmerait ainsi : 2 3 mul 4 1 
sub exp ou 4 1 sub 2 3 mul exch 
exp ce qui est plus long mais 
permet de presenter exch 
operation d'echange les deux 
premieres valeurs de la pile. 

Rcchercher le nombre d'elements 
d'un tableau revient a faire [56 78 
34} length et on recupfere 3 an 
sommet de la pdc. Mfimc priitcipc 
pour une chairte dont on veut 
comiaitre le nombre de 
caractferes : (Pom's) length laisse 
5 (le nombre de caracteres) dans 
la pile. 

Le resultat peut occuper plus 
d'une cellule : dans la police de 
caract&res courante, quelles 
seraient les hauteurs et largeui du 
mot Pom's ? (Pom's) stringwidih 
donne dans la cellule la plus haute 
la hauteur et dans la suivante la 
largeur. 



Defmitions 

PostScript pennet de completer le 
dictionnaire en associani des 
valeurs ou des procedures ^ des 
noma, possihilite explnitee dans 
les cxcmples, 

/nombre 45 d&f 
Aabt [IS 25 89] def 
/unnom (Pom's) def 

Si, dans la suite du programme 
on invcKjuc nombre, tabl ou un 
nom, on empilera le nombre 45, 
Ic tableau dc 3 clcmcntii, la chainc 
de 5 caracteres ou tout autre objet 
predefini. Ceci etait la premiere 
fa^on de definir un nom du 
dictionnaire. 

Voici h seconde : 

/op {dup} def 
/moyenne {add 2 div] def 
/puiss2 {dup mulj def 

op, du fait des accolades dans la 
definition est maintenant associe 
I'opcration dup qui duplique le 
premier element de la pile ; 

56 78 12 op donne dans la pile 56 
78 12 12. 

34 12 moyenne laissera 23 dans la 
pile ; 



34 


12 


moyenne 




12 










34 




23 1 



moyenne qui se decompose 
ainsi : 



add 


2 


dlv 






2 








46 




23 





idem pour puiss2 qui el&ve au 
carre par duplication suivie dune 
multiplication. 



Programme H I RE 

Le premier exem pie consiste en la 
realisation du titre de cet article 



qui est irrealisable sans la 
commande direete de la 
LaserWriter, aucun programme 
pour Macintosh n'etant encore 
capable de generer ce genre de 
fantaisie, 

Des caracteres Times (la police 
udlisee pour le texte de cet article) 
de haulear et d'inclijiaison 
variable formeront le mot 
'Postscript' centre sur unc page. 
Deux partie dans ce petit 
programme : des definitions puis 
unc bouclc d'imprcssion, 

Le premier ordie usertlme (ligne 
1) consiste ^ empiler la valeui en 
cours du compteur de 
I'imprim ante, compteur 
incremente mille fois chaque 
seconde, ceci pour connailre le 
temps necessaire au calcul. 

Police (2) est associe a I'operation 
de reciierche dans le dictionnaire 
de la police Times-Roman et 
chains (3) au mot 'Postscript'. 
Matrice (4), un tableau de six 
n ombres sera empale pour passer 
i makefont les arguments 
ndcessaires k la modification de la 
police standard Times Roman. 

Dans ce tableau, nous trouvons 
successivement exprim^s en 
points : 

• ]a largeux de base de la police 
de caract&res (bien sur chaque 
caractfere n'a pas pour autant une 
chasse fixe), cette largeur 
pouvant 6tre ndgative, ce qui 
conduit a ecrire de droite a 
gauche ; 

• un nombre qui affecte 
riiorizonLalite du texte (langente 
de Tangle entre ligne d'ecriture et 
horizoniale) ; 

• tangente de Tangle des 
caractires avec la vcrticale ; 

• J]auteur de base de la police q ui 
peut aussi etre negative pour 
obtenir des lettres tete en bas ; 

• puis les vecteurs x et y 
s'additionnant h la position 
theorique d'ecriture. 

Carac(5) est associe h la creation 
d'une chame dun caractere qui 
servira de tampon d'impression 
puisqu'on ecrira lettre par lettre. 
Numcarac (6) est defini comme 



valaiU el gardera le timnero de 
la lettre en cours d'impression. 
Demiiong (7) qui est le nombre de 
caracteres divisc par deux 
permettra de repartir la hauteur et 
I'inclinaisoE equitablcment. 

Premier travail, mesurerla chaine 
pour pouvoir la centrer : on 
recherche la police voulue (8), on 
cmpilc Ic tableau qui donnc unc 
largeur de 40 et une hauteur de 
depart de 75, makefont se charge 
de modifier la matrice de 
parametres standard (en fait une 
copie.,.), ct setfont enfin installe 
la police nouvelle. La police est 
1^, il ne resLe qu'^ empiler k mot 
'Postscript' (9) et k en mesurer la 
largeur. 

L'ordre moveto (10) (equivalent 
de IITAB, VTAB sur I'Apple //) 
necessite deux arguments, x et y. 
La page ayant 792 points sur 
612, la ligne se charge de centrer 
le titre. 

Suit alors (lignes 11 & 22) la 
boucle d'rtnpression style FOR 1 
= 1 TO LEN (A$) : PRINT MID$ 
(A$,I,I); : NEXT, exprime ici de 
la fagon suivante : 
O I L {procedure} for. 
est la valeur de depart, 1 
I'increment, L le nombre de 
caractferes -1. 

Procedure sera I'ensemble des 
ordres de recherche du caractere a 
imprimer, de modification de 
taille/inclinaison et d'impression. 

Notons ici qu'arbitrairement les 
caractferes auront une inclinaison 
variant de -20° ^ i20° et leur 
hauteur variera en suivant une 
parabole. 

Numcarac (14) est incremente 
pour suivre le numero de la lettre 
en cours. 

Ligne 15, I'element 2 de la 
matrice necessaire h. makefont, 
element qui represente 
I'inclinaison, est defini ainsi : 
tangente (numero de caractere - 
demiiong * 5) * hauteur. Noton.'; 
que PostScript etant depourvu de 
l'ordre TAN, il faut utiliser 
SIN/COS. 
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Elemem 2 de la matrice 
- tangani& de I'angh 

h< 




Inclinaison des caractires 



L'ordre put installe la nouvelle 
inclinaison dans la matrice en 
element 2 (2 a ete empile 
quelques instructions plus tot). 

MSme travail (16) sur la hauteur 
du caract&rc dcfinie comme suit : 
(numero de la lettre - 
demi-longueur) au carre * 2,5 + 
35, 35 etant la hauteur minimale. 
Les pararafetres sent maintenant ^ 
jour, on installe la police (17). 

Dans la pile, il y a I'indicc dc 
boucle qu'on a duplique plus 
haut, on empUe cliaine et l'ordre 
get extrait le i^"*^ caractere (18). 
On met ce caract&re dans 
I'element de la chainc tampon 
carac (19). 

II ne reste plus qu'^ iraprimcr 
(20) cette lettre par l'ordre show. 
Ici on a utilise l'ordre Ashow qui 
necessite deux param^tres : les 
valeurs x et y qui sont ajoutees a 
la position courante avant 
impression. Dans le cas present, 
on demande que les caracteres 
soient un peu plus scrres qu'en 
standard, sans modification 
verticale. Get ordre permet lors 
des justifications totalcs de regler 
I'espace inter-lettre. 
La boucle for s'execute ainsi 
jusqu'a la fin de chains. 

Pour impiimer le lemps de calcul, 
on opte pour la police Helvetica 
(23) en dimension 9 points, 
scalefont se citargeant dc mcttrc k 
jour la matiice. 

Maintenant (26) on empile la 
valeur actuelle du compteur 
interne, juste au-dessus de celle 
cmpUee ligne 1, on echange les 
deux valeurs, on soustrait et dans 
la pile il reste le temps 
d'cACCution. string cree une 



chamc de caractferes vide ct cvs 
(convert to string) convertit le 
temps de calcul cn une chaine 
imprimable par show. 
Ultime etape, impression 
physique par showpage. 

Programme SIN 

Cet autre exemple a pour objet le 
dcssin d'one courbe et 
I'impression d'un petit texte. 
La courbe definie entre les lignes 
4 et 1 est de la forme x = sin (a) 
* a et y = cos (a) avec a variant 
de 360° par pas de 2°, Un test 
(7) est effectue pour modifier la 
courbe scion que la valeur du 
sinus cakule : 

Sinus .2 ge {si out} {si non} ifeise ce 
qui se traduit en Basic par IF 
SINUS .2 TH£N si oui ELSE si 
non, 

Le lineto (8) necessite deux 
arguments, position horizontale et 
verticale, pour dessiner un 
segment de droite reliant ce point 
k la position courante. 
La courbe est maintenant au point 
(11), on sauvegarde I'etat 
graphique pour la garder en 
memoire, on defmit un gris clair 



(.95 setgray), on applique le grise 
et on restitue I'etat graphique 
antericur. 

Pour laisser la place au futur 
poimille, on dessine un trait en 
blanc (12) d'une largeur de 3 et 
de couleur 1 (blanc). stroke 
dessine ce trait. 

Par setdash, il est possible de 
reahse toute sorte de pointille, ici 
cc sera 20 points noirs, 2 blancs, 
2 noirs, 2 blancs. stroke realise le 
trac^. 

Lignes 14 h 21 les chaines de 
caract&res seront imprimees dix 
fois, decalccs, dans un gris dc 
plus en plus fonce. Dans la 
definition des chames, \( ct \) 
indique k PostScript que la 
parenthese n'est pas tra deUmiteur 
de chaine mais un caract&rc a 
imprimer. 



5- w/<?£Ai^\M 7. 



Comment transm&itre Postscript a fa LaserWriter ? 



La LaserWriter 

EJ!& doit etr& r4gl4e sur 9600. 

L'Appte // 

Carte s^fie coafiguree comme pour I'ImageWriter, 
le ftchiersera charge par un traitement de texie et imprime 
avec. S'ils'agit d'AppleWriwr. ne pas oublierde supprimerle 
parametre de souHgnement (ps). 

Le Macintosh 

La LaserWriter sera connea6e exactement comme 
I'ImageWriter, son connecteur 25 broches relie a la sortie 
imprimantQ du Mac Les traiiements de texte commandant les 
imprimantes en mode graphique. ie plus simple consiste i 
transmettre le PostScript (cr66 sous MacWrite, sauvegard6 
sous format 'texte seul) i I'aide du programme Basic suivant : 

t?=FILES$ (1) 

OPEN "I lff$ 

LPR INT IMP aT$ (LOW (1} , 1) 

CLOSE 
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Programme TiTRE' 



/V5 . les numiros de lignes ns fonl pas partie da prugrumme, ih sei-veat qa'aifx rtm<trques du texle. 

1 ussi'Llma 

/police /Times-Romar findfont rlaf 
/chains (Postscript) def 

def 



2 
3 
4 
5 
6 
7 
fi 
5 
10 
11 
12 
13 
14 
15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



/metrics [40 -4 90 OJ 
/cBXac 1 string def 
/nunicarac def 
/deitiilon^ chaine lenarth 1 
police matrice m&kafont 
chaine strinffwidth axcb 
612 exch sub 2 dlv exch 
1 chaine length 1 sub 



1 add 2 div def 
set font 

792 sxch aub 2 div moveto 



dup 

/numcarac ntimca.rac 
/ma trice iaa.trics 2 



1 add def 

numcarac demilong- sub 5 mul dup sia 
sxch cos div 75 mul put 
matrice 3 35 2.5 2 numczrac demilong sub axch exp mul add put def 
police ms-tTice iaa.k&font set font 
chaine exch get 
carac sxch exch put 
~S narac ashow 

} 

for 

/Helvetica findfont 9 scalefont setfont 
300 340 moveto 
{Calcul : J show 

ussrtime exah sub IS string cvs show 
( millisacandBS . i show 
showpage ^ 



Programme 'SIN' 




3 
4 
5 
6 
7 
8 
9 

m 
11 

12 
IJ 
14 
15 
16 
77 
18 
19 
20 
21 
22 



/chainel (X = \(sin \(angle\}\} * angle) def 
/chains2 (Y - cos \(snglc\)) def 
350 370 mov&to 



a 2 
{ 



360 
dup dup dup 

sin dup .2 ge { 2.5 div .3 add ; 
exch cos 70 mul 300 add lineto 



{ 2 mill j ifBlse mul 2 div 350 add 



) 

for 

gsave . 55 sfsLgiay fill grestors 

gssve 3 setlin&wldth 1 setgray strolce greistore 

[20 2 2 2] setda.sh setllnewldth stroke 

/Helvetica-Bold findfont [20 4.2 25 0] mskefont set font 
1 -.1 

( 

dup dup dup dup 

setgray 10 mul dup 130 add exch 285 add moveto chainel show 
s0tgra.y 10 mul dup 200 add Bxch 260 add moveto cbaine2 show 

) 

for 

showpage 
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Un util'ftaire d'impression Pascal : ^[f3ifll fii^lf 

Philippe Magnien 



Ce programme a pour 
principal nhjet de de 
debiter les listes des 
programmes Pascal en 
tranches d'uiic page, plus 
commodes i manipuler que les 
accordeons conrinus. En prime, il 
indique cn bas de chaque page la 
date, repechee dans le systfeme, ce 
qui permet dc repcrcr sans 
probl^me I'edition la plus recente 
d'unc listc. Enfin, Ics Apple DMP 
et ImageWriter disposant des 
caractferes frangais et anglais, il 
permet de disposer des crochets et 
accolades en meme temps que des 
caract^res accentues. Ces 
caract^res ayant les mimes code 
ASCir, I'astuce consiste I 
considerer qu'un code de 125, par 
exemple, correspond k un ']' s'il 
se trouve entre deux apostrophes, 
et S un crochet fermant dans le cas 
contrairc. II cn rcsultc que, sur la 
liste, les codes corre&pondants 
scront toujours interprctcs de la 
meme fa§on, suivant qu'ils se 
trouvent dans la partie programme 
proprement dite ou dans la partie 
texte. 

Quclqucs commcntaires sur les 
differenles procedures : 

Datation 

Cette procedure va rechercher la 
date dans le sy&tSme. L'adre&se 
-18432 correspond au Pascal 1.2. 
Pour le Pascal 1.1, il faut 
remplacer cette adresse par 
-21992. 

Initialisation 

Cette procedure met en place un 
certain nombre de constantes qui 
seront utilisees dans le corps du 
programme. En paniculier, elle 
initialise la chame de caractferes 
"CROCHET" qui sera en.suite 
utilisec pour provoquer Ic 
changement de jeu de caract&res 
lors de la reconnaissance des 
codes ASCII correspondants. Le 



Programme 'PRINTER TEXT 



program PRINTER; 

t^antrt HSL - SS,- t potir d6e pages de 1! pcutte,- mettfe pour 21 potisss J 

tyiie date = packed record 

tK>IS : 0.-12; 
JOim . 0..31; 
AN : 0..99 
end: 

SETOFCRAR - set of ch^rf 



ver fICHIER : text; 
AOJOORDKOl I date,- 
EtiTREE : bualean; 
TAB, I, NVHEHO ; Integer; 
rsnCHHT.TTTDF : sr. ring; 
LIGHB : sCrLn^lieOf; 

FUHCTION GETCHARIOKSET : SETOFCHARi : CHAR; 

VAR ch; char; 

eaODiBOOLEAH; 



TurboPascal 

A la suite de la presentation du 
TurboPascal (Pom's 23), 
FRACIEL nous demands de 
pr6ciser son changemeni de 
raison sociale : 
•BORLAND FRACIEL' 
et sa nouvelle adresse : 
78. rue de Turbigu, 75003 Paris, 
til (1)42 72 25 19. 



BEGIN 

REPEAT 

READ tKEYBOAPD. CUi ; 

IF EOLNIKEHBOABD) THEN CHr-CHR ( 1 3} ; 

GOOD;=cif IN qkset; 

IF NOT GOOD THEN HRITE(CHRO)} 

EiSE IF CH INf •■■•e'l THEN WRITE (CH) ; 

UNTIL GOOD; 
GEJCHAR:-CS 
ElSl; 

PROCEDURE HETSTRIHSfrmXI^ENlIirrEGERtVXR CHAINE ! STRim) ; 

VAtt S .- STRING; 

SI : STRING [1], 
OKSET ISETOFCHAR; 

BEGIN 
S :-■ •/ 

SI :-• •; 

OKSET r=. / • ' . . 'e ' 
REPEAT 

IF LENGTH IS} - 

THEN SI [11 -■= GBTCHAR I OKSET +r CHRtlBUi 
ELSE IF LENGTH {Sj - HAXLEN 

ELSE SI [II :- SETCHARlOKSET*[CHRtl3},CER(3> 1); 
IF SllU JN OKSET WiEW S t- CONCA.T IS, SI I 
ELSE IF 31(1] =CHRfei 
THEN BEGIN 

WRITE ( CUR (S) , • ', CHR (8) ) • 
DELETE tS, LENSTH (sj ,1) 
END; 

UNTIL 31(1} - CUR fl 3) ; 
CHAINS:- Si 
ENU; 

pfce^iivi-s DATATION; I'va cficx^chsr Is ti^tc sijnc la systamc. cf PEBKs ') 
f'sE POKES en pascsi j", eino, FOw "i" n'i? V 

type hlf^re — record case hoolGsn ojf 
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programine suppose, pour 
fonctioTiner correctement que le 
jcu de caractferes s^lectionn6 au 
moment ou le programme est 
lance est le jeu frangais. C'est 
toujours Ic cas en ce qui me 
conceme, les caract&res frangais 
etant affiches sui les mtemipteuis 
de I'imprimante. Dans le cas 
contraire, il convient de rajouter 
une ligne au prograrame 
principal : 

write (copy (CROCHET, 1,4) , cop 
y (CROCHET, 6, 4) ) ; 

apr6s I'initialisation de 
rimprimante pour se ramener au 
cas prededent. 

Traduire 

Cette procedure remplace dans la 
partie programme, les caractires 
'e','§','fi',''" par la chaine 
CROCHET, qui a pour effet de 
provoquer le passage aux 
caractSres anglo-saxons avant 
renvoi du caract&re considere, et 
le retour aux caractferes frangais 
ensuite. 



Comment faire ? 

Pour lister un programme 
Pascal, vous devrez faire : 

X(ecutB 

PRINTER 

puis VOUS devrez donner le 
nom du programme ^ lister 
4ver)tuellement pr6c6d6 da 

Le programme est congu 
pour une imprimante r6gl6e 
sur 72 lignes par page. 



Rendons a Gisele... 

. . Ferreaidt le merite qid iui 
revient : dans Pom's 23, son 
nom avait ttt amis en tete de 
I' article 'formateur de listing' 
au cotS de Sylvie Gallet. 

Gisile Ferreaulc nous 
pardonmra certainemem. 



tT-uct : (AmfF.RSP.-.int-egdT}/ 
false : (COm'Hm: '•date} 
end; 

var PEEKPOKET : blfacej 
REUklS : date,' 

begin 

PEEKPOKET. ADt!ESSE := -18^42 j 
ttUJOORDEai .— PEEKPOKET. COKTEm^/ 

en<3; 

prnfrifdur^ INITIMLISATIOKj 

van AUTmriTHS : scrlng; 
bagln 

Miileln fciii tlZi );got:oxy (27, 01 ;»ilceln f * 

gotoxy(27,ll;ifrlteln('* * 
gotexy (27,2) fueiteln ( ' • Utllltalre d' • ipprssslan *• 
gotoxy (27, 3j .milLeluC ' 

gotoxy (27,4) ;writeln ( ' **************■" t*t ***** tttt 
AUTRETITW : - ■ 'J 
SNIRSB .-- true/ 

nuKBRO := o; 

Liem 

CROCHPT ;= • Z D ' f 'cjrAo la j^quejics d'e^eapc "BssZSO isai) EscDSO' } 

CROCMETliJ := ci}j:(27); ('qui, par remplacemenc systimaclQue dans les 'I 

CR0CHET13} :- cbr(6f; ('lignes envoy6es. A I 'iroprimaflte pennettra ) 

CROCHET{4] :- ahrfO); ( ri'nhrenJr Jes rararrteres •!!!]• asns Ja ■} 

CROC!!BT(el :- chrfSV},- { 'per tie non t.sxte du progirsssaae j 

CROCHET IB 1 ;- cne(^i; 

CROCHET [3] ctir (01 r 

DATATim,- 

HiiLeln;wi iieln ( 'Nom du flchler A Imprljser ? 'j; 

getstrlng (40, TITRE) ; 

wrlt^ln; 

(*?J-*) ('ivlce Is piantage sur une erjreuf cl"euti6i! ^uiLLa' ) 
reset (FICmER, TITRE! ! 

If Icresult <> ('viclfle la presence du flchlsi^ sur la disijuettB'} 

then begin 

flCTRCnrKE ;= aonc^c (TITRB, ' .TEXl-' ) ; (-essaye en lajoutsnt "J 
reset (FICHIERfAUTEETI TRE) : {' . TEX ? • 1 

If lorssult <> 

then b^Qln f 'rettJur case dSpdi"t 'I 

qotaxy (0, 6} ;urlte (chr (11)); 

writfilnCfiahier non present*}; 

EHTREB false 

end 
/*$!**) 



procedure TBADUIRE; ('rpmpTurp }ps nar^rteres " i ^ ' S " par la s^tpience '} 
i C?*e^crape, sauf dan.s les zort&s <Jir ttj^t^ '} 

VAR J : inteoerj 
CAR rcJiir/ 

begin 

I 

wftJie I <- IsngthiLIWEf do 
tiegin 

If LIGNEfl! " chr (39) Chen repeat I := f+J until (LICNEfli = chrf.lSJJ 

or (I - length (Llotte) } ,- 
f' saute les zones de texts, sans aepajser la tin de la llgne ') 
If (LJCSE{I} In I'i'r'i', •••.•$•!) then 
begin 

CltOCHET{5S ,-- liIGNElIif f meL le car approprlS aans CROCHET ') 
LICHE;^ ctjncflt (copy {LXGNE,!, I-ll , CROCHET 

. oopy (LICNK, r + Iflnjrft (I. TdNE} -I) ) ,- ( ' remplse^m^nt ' j 

I !- i ' S 

end; 
I 1+1 

end,' 
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Vous n'avez ni 
DMP, ni 
ImageWriter ? 

Voici la signification des 
codes de controlfi utilises par 
PRINTER pour commander 
I'Imprimante. II vous suffit de 
les adapter h votre impri- 
mante dans la procedure 
'TRADUIRE'. 

Esc Z 60 

Jeu de caractdres am^ricains 
Esc D 60 

Jeu de caractSres frangais 
Esc E 

Caract^res 'Elite', 12 carac- 
t^res par pouce 
Esc L010 

Marge gauche ei 10 carac- 

t^res 

CTRL N 

Caract^res dilates 
CTRL 

Caract§res non dilates 
Esc X 

D6but de soulignement 
Esc Y 

Fin de soulignement 



repeat 

INIflALISATTOMj 
if not ENTREE 

then iSegln ('tlcliler nan tro^ive-j 

wLltelnl 'voulez-vous falre une autre tentative ?'}; 
EUTREE !- CBTCMARtf'O', 'o ', 'n']) in ['n\ 'H-}: 

ir iM'HEE tften exit (protf ram) 

until EWTfijrff,- 

Xm (SQ~^*lengt.h (TITREU dlv 2i ( oentrags du tltra J 

Close tovtputl ; reset /output, 'printer: 

KClteichi: (B7l , ■S' rs:br(27! , 'LOIO' I ! /• s61a=tlonne les cs^ictozas 12 cpl 'i 

f ' (EsuEl tit une piarge gauche <i= IC car ') 
i • (EsclBlD} , A modifier sulvsnt gout 'J 
I • et imprlmante '1 
Hrltelnf ■ :TAB, tJir (li) rclu: (27) , 'X'rTJTRE, chrfS?) , ch^(lS) ) t 
for 1 1 to 3 <io wrlteln; 
whllf nnt p.nf (FTCHIERj do 
ttegln 

mMERO NIMERO*!; 
if NWfERO mod NBL - 

then begin /'impression rin la data et da num^ro en *J 
f 'i>si5 de chaque pag^ ' 1 
far I 1 to 3 do vrlteln,- 

ufr.h AUJOORDHai do writ^lJ0UR:3,MaiS:3,' 19-, AN) J 
HrltelnCpage' !30, (tlUMERO dlv mi } : 3) 
psge /output} ; 

writelstV •:TAB,chra'll ,chr (27} , 'X ' ,TITRE, ahr (27) . 'Y\cht(lb)); 
I • impiBssion titre en bawt de oharjne p&ije' ) 

f •Ctrl-N passage en csr dllatis. EscrX dibute Ic soullgn^fent 'j 



( 'EscY le termine, Ctrl-0 revlsnt sux caracceres normaux 
for 7 1 to 3 do f/riteln: 

end/ 

ieccure a''une llijne 'j 
remplacement des car, si n^cess^ire ') 
anvol k 1 ' impriasnte I 



rsadln (FICHIER, LIGSE},' f 
f ■ 



TRADUIRE: 
wrlteln tLiamj 

end; l utille I i 
for I 1 to (NBL - inmERO mod NBL) + 3) do wrlteln; C complete La 'j 

f 'derniere paae ' ) 

Kith AUJOURDHUI do write (JOVR: 3,M0JS: 3, ' IS', AN}; 
wrltelnCpage-:30, fNCWEfiO dlv NBL + IH'J); 
rlrasfl (output) ; reset (outputs 'consols: ') ; 
crl sse tncuiER, lock) 
end. 



Vous... Votre Apple... et Pom's 

Dans le prochain numero de Pom's, nous publierons les 
resultats et enselgnements du sondage paru dans le 

numero de mars. Nous tenons des aujourd'hul a 
remercier les centaines de lecteurs qui ont r^pondu a 
notre appel. Vos remarques nous permettent de mieux 
vous connaltre et de mieux centrer votre revue. Voici la 
liste des heureux 'tires au sort' : 
Jean- Marie PLACE a Noyelies-les-Vermelles, Jean 
GOUTELLE a Saint Etienne, Claudine BUG a Paris, 

Robert GINTZa Strasbourg. Simon BOSMAN en 
Belgique, Bivno INVERARDl a Saint Louis, Edmond 
GRAND a Vendargues, Christophe PRENEL a Epinay sur 
Seine, Bertrand MERIO a Cadaujac, Laurent FONTAINE 

au Mans, Siephane DEHAN a Caudebec les Etbeuf, 
Gerard CUVIER a PfastaU, Nicolas LEPLEYa Fontaine la 
Malls, Rene MARTIN a Cognin et Patrick OLIVE a Paris. 



E.P.E.5.0 



Precisions. . . 



E.P.E5.0 est Uvre sur utte 

disquette DOS 3 .3 
{pemons d crux, qui n'nnt 
pas de cane I6K0). Pour 

utiliser E.P.E5.0 sous 
ProDOS, ilfaut :farmater 

um disquelit ProDOS, 
puis copier sur celle-ci, a 
I'aide d"utilitaire systeme' 
oude 'Convert' , les 
fielders 
STARTUP, 
EPEON.PRODOS, 
EPEPRODOS5.0, 
DOCEPEPRODOS et 
CLAVIERS. O.PRO. 
U si^t alors de demarrer 
sur cette nouvelle 
disquette. 
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L'heure sans carte 



"^r^^ ATHEUR pennet de disposer 
M B de la date et de l'heure sans 
M^M carte horloge et ainsi dc 
pouvotr datftrles fichiers avec 
prfcisioii, De plus, si vous disposez 
d'une carte souris, l'heure sera 
autoraatiquemeni incrementde. 
La carte souris 6taiit intfigrfe dans 
l Apple //c, ce programme est done 
particnliferement intfiressant pour leurs 
propri6taires, d'autant que I'absence de 
"slots" cmpfiche d'y iiisfiier une carle 
horloge. 

* si vous poss^dez une carte souris et 
si vous le dfsirez, les heiires et les 
minutes seront affich^cs stir la 
premifere ligne de I'^craa, que ce soil 
en affichagc 40 colonncs ou 80 
colonnes. Le ":" s^parant les heures 
e£ les minutes clignotera \ chaque 
seconde ; 

• si voire Apple ne possfede pas de 
carte souris, l'heure ne s'incr6mentera 
pas automatiquement. mais vous 
pouiTcz modifier l'heure chaque fois 
que vous le dfisirerei en tapant . 
simpIeDient la commande HEURE 
puis en r^glaat l'heure avec les 
fitches. 

Mode d'eiTiploi 

Apr^s -DATHEUR ouBRUN 
DATHEUK, la date et l'heure du 
sysi&me apparaissent ou, par d^faut, 
celles de la dernifere utilisation du 
programme. Les minulcs sunt en vid^o 
inverse. En utilisant les fishes tJ ou -U- 
(ou les touches ">" et "<" pour un 
Apple ][+), vous allez; lespectivemeni 
le.? incr^menter ou les d^cr^menter. Si tie 
mtme, vous voulez modifier les heures, 
les jours, les mois ou les annSes, il 
suffira que vous ulilisiez les filches 
ei => pour deplacer raffichage en inverse 
sur les minutes, les hcurcs, les jcurs, 
les mois ou les ann^es Miivant ce que 
vous voulez changer. Pour valider la 
date et ITieure, appuyez sur la louche 
RETURN. L'heure et la date seront alors 
affich^ea sur la prcmiirc lignc de I'dcran. 
Le ":" clignotant k chaque seconde 
indique que I'horloge fonctionjjc. 
L'heure sera ensuite affich^e jusqu'i ce 
que vous supprimiez la protection de la 
premiere ligne (par exemple en faisant 
TEXT ou GR, ou encore en pas.«;ant de 
raffichage 40 colonnes i I'affichage 80), 
L'heure ne sera plus affich^e mais 
I'horloge continuera 5 fonciionner. Pour 



datheur 



Taffichcr S aouvcau, il suffira dc tapcz 
la commande HEURE, ce qui vous 
peimettia ^ventuellemeut de rdgler i 
nouveau l'heure. 

L'heure affichie est assez pr&ise et n'est 
pas affectee par le dfirouletnent d'un 
programme, sauf si celui-ci utilise la 
souris. Cependant, les acc&s aux disques 
bloquent les interruptions et arrStent 
done momentan6ment le fonctionnement 
de lliorloge, ce qui peui provoqucr an 
retard de quelques minutes sur une 
demi-journee. Enfin, si vous appuyez 
sur CTRL-Resct ,vous arr^tez I'horloge, 
Pour la faire repartir, tapez a nouveau 
HEURE. 

Si vous n'avez pas dc carte souris, 
l'heure sera affich^e com me expliqud 
ci-dessus, mais elle n'6voluera pas et le 
":" ne qlignotera pas. Si vous d^sirez 
que vos fichiers soient. correctement 
dat^s, vous suffira de mettre l'heure 
avant de les sauvegarder en utilisant la 
commande... //£[//!£. 

Enfm, si vous voulez rdcup6rer la place 
occup^e par le programme on arrgter 
I'horloge, il sufru de lapez la commande 
LIBERE. Celle-ci supprime loutes les 
commandcs ext6rieures et rdcupfere !a 
place qu'elles occupaient. Vous ne 
pouvez plus utiliser ni la commande 
HEURE ni LIBERE, ni aucune des 
commandes que vous aviez instances, 
sauf en relant^anl l'ex6culion de 
DATHEUR ou d'un programme 
mstallani une commande extSrieurie. 

Note : les commandes cxi^rieures 
n'exisie pas en DOS 3.3, ce programme 
ne foDctioiuie done qu'en ProDOS, 
Comme de plus le principal interSt de ce 
programme est de pouvoir dater ses 
fichiers et que ceite possibility n'existe 
pas en DOS 3.3, ceci n'est pas un 
handicap. Vous pouvez loutefois 
I'adapter eo DOS 3.3 moyennant des 
modifications importantes de 
rinterprdtcur dc commandcs. 11 faut 
noter, pour ceua qui souhaiteraient le 
faire, que les parties les plus complexes 
(celles concernani U souris) restent 
utilisables sans modif ication. 

La technique 

Le programme a ^td congu de fagon trfes 
modulairc ct chacun des modules pcut 
5tre r^utilis^ s^par^ment dans un autre 
programme. 

Les diff£renl.cs techniques ulilisdeji 
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sont : d£placemcnt d'un programme en 
code machine, recherche de la carte 
souris et utilisation quelle que soit la 
machine ou le slot de connection, ajout 
d'une commande a I'icterprdteur de 
BASIC, SYSTEM, utilisation des 
imerruptions engendr&s par le balayage 
vertical pour mcsurer le temps saos 
empScher le fonctionnement d'une autre 
fonction, etc. 

Commander exterienre.? 

• L'ajout d'une commande \ 
I'interpreteur de BASIC. SYSTEM a 616 
abord^e dans le Pom's 20. Rappelons 
toutefois que ces commandes sont 
utilisables aussi bien dans un 
programme Basic avec la mgme syntaxe 
que pour une commande ProDOS 
condition bien sflr que la coromande soit 
instance), que directement au clavier. 

Note : DATHEUR pussfide son propre 
relogeur qui installe les deux 
commandes sous BASIC.SYSTEM sans 
d^truire les variables Basic, et ceci 
mdme si un ou plusieurs fichiers &ont 
ouverts. 

La souris 

• Le deuxiSme point important 
conceme la souris, L'utilisation de cetie 
derni&re est fort complexe mais est 
grandement facilitde par I'appel aux 
sous-programmes fournis dans la ROM 
de la carte souris. L'emplacement de ces 
sous-programmes est diffdreni pour un 
Apple He. et un Apple //c, mais une 
table coEtenant ieurs adresses a tvt 
disposdc en ddbut dc ROM, permettant 
ain.si au programmeur de rfialiser un 
prugramme fonctionnant sur les deux 
machines. C'est ce que permet le sous- 
programme SOURIS. 

» DATHEUR utilise la souris dune 
mani&re partiouli^re, aussi ne 
agtaillerons nous pas rutilisation de la 
souris cllc-mcme. Nous ne parlcrons ici 
que des diffSrents modes d'interruptions, 
intenupdons gSner^es par la souris et 
qui permettent h. I'horloge de fonctioooer 
i une frequence de 50 Hz. Sans top 
entrer dans les details, il faut savoir que 
pour que Ton puisse determiner sa 
position, U souris genSre des 
impulsions chaque fois qu'on !a d^place, 
En plus de ces interruptiOBS dues aux 
d£placcments, deux autres sources 
d'interruptions existent ; celle.«i 
provoqu6es par la pressiou du bouton, ct 
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celles qui interviennent a chaque 
rafralchissement de I'^cran (VBL), cc 
qui se produit 60 fois par seconde (SO 
fois pour l'AppIe//c). Le program meur 
peut choisir d'utiliser chacun de ces 
modes d'intemiptions, soit ensemble, 
soit s^par^mcnt. Pour DATHEUR, 
seule la frequence de 60 Hz (ou 50 Hz 
iuivant la machine) nous ini^ressc, nous 
n'utiliseronE done que les interruptions 
VBL, 

Remarque ; set les raodWes amdricains 
de I'Apple flc le balayage se fait h une 
fr&iuence de 60Hz , C'est cette valeur 
qui est jndiqudc dans la documentation 



Apple, qui ne parle pas des modules f/c 
fraDt^ais pour Icsquelii la frequence est dc 
50 Hz. Pour I'Apple //c. la precision 
semble trfes tonne (de Toidrc de un pour 
mille). Pour I'Apple //e, elle est un peu 
mffirieure (de I'ordre de cinq pour mine). 
Voiis pouYcz affincr le r^glage de 
riiorloge en modifiant la ligne 110 
(octet $6007) pour I'Apple /fc ou la 
ligne 113 (octet $600D) pour I'Apple //e 
ou ][+. 

Attemiun : sur I'Apple /fc Ic vcctcur 
d'interruption pointant en SC805 
(NEWIRQ), ii esi toujours accessible (la 
zone entre $C100 et $CFFF n'est pas 



commutable). Comme d'autre part 
ProDOS se charge d'iaitialiser les 
adresses $FFFE et $FFFF en carEe 
langage et en mfimoire auxiliaire, il ji'y 
a aucun problfeme k utiliser un 
programme en m^moire auxiliaire avec 
TApple //c. D n'en. va pas de mSme sur 
un Apple //e . En effet. le vecteur 
d'intermption pointant en $FA40 (IRQ) 
n'est pas accessible d'un programme en 
ui6iDoire auxiliaire. Par conirc. et 
heureusement, ProDOS a pour son 
usage 'personnel' une routine de prise en 
charge d'iDtemiption en carte langage. 

a 



Source 

'DATHEUR.SCEO' 

ABsambfeur ProCODE 





1 

-J 

* 

S 

t 
7 
« 

10 
11 
\2 
1.3 
14 
IS 
1% 
17 
1$ 
13 

ga 

21 
22 
23 
2i 
25 
3e 

£7 
19 
23 
30 



31 

35 
3i 
37 
3» 
39 

*L 
t2 
43 
44 

4S 

^^ 

47 
48 
if 

50 

SI 
iS 
S3 



************ 



• DATHEUR V. 2.0 (C) Bnino Finart ZS8i 



' Citation: Juliiet 13Si 

• Modllleatlim: D^CMbi-e liSS 



* kaaenbltur ; PraCODE 

' L'exictition ds DATHEUR peimet (('ij&uter 



^'il ¥ a une caz^« souiist t:aapa eat. 



" hedre 

* De plus, 

* teesuzi ycAce A dea irtterruptlana de 50 ou de €0 Hi 

* LIBEKE ~ diconneete touCsj les <;<iiiiiande3 

* addltiauteliet, y coxfiila HEURE et LIBERE 

ORIS f(O0<f 



WNDTOP BOB S!2 
LSMSTH EQU «F 
PCI E^a JJJl 

ADR EQO $FE 

* Const.aTit.es so\itL9 



IKSTHSaSE EQB fl3 
StiTHUUSE EQU Sll 

SESVEmUSE Esn si 3 



fAdl.v^sv ijv la iltfTitt id^saastunblie 

;floc. aprts une Interruption 
;VBctBUT d'lnijlrectlon tempcttlte 



i Inltiiailaatlon <je la sourla 

f Active le mode dea Interrupt J on j 

fOzlglne ds 1 * Interruption ? 



Variablei nun en jiaija 



ISQtOC 


£01} 


S3FE 


/Vectouz de 1 ' Interruption IRQ 


LlNBl 


Bf)0 


$400 


iAetteiae du d^but d« 1 'Scran 


* Sous- 
» 


-Drcotamei du 


Doniteur et de 1 ' tntBrpe&tsur Basic 




BQO 




;U6code la iljjne fpci.) al x^O 


OOTDO 




^DBSC 


iAffiche le code ASCIJ de Acc. 


LIllPKt 


EQB 


$ED24 


;Aiflche I'antier X,A (A - MSB) 


HORMAL 


BOD 


SP273 


:Pa33age en mode narmal 




BOU 






pp 


BOB 






HOME 


Bgu 


fFCSt 


/erraeage de I'icran 


TEXT 


EBB 


?F3i» 


;Paa3age *er*/l tejrte total 



5! 
St 
SB 
53 
iO 
SI 
fl 

ts 

i4 

Si 
St 
67 
S» 

tt 

70 
71 
71 
73 
74 
7S 
7€ 
77 
IS 
7S 
SO 
ai 

B£ 

iJ 
S4 
85 
Bf 

S7 

SB 
»S 
30 
31 
32 
S3 
S4 

ss 

37 
33 
S3 

leo 



SROUT 



EOO SFOfif: 



Sous-progiammaa «n page giobale BASICStSTEH (BII 



GfwrsTEU POD fnmo 

SZrrBCTFTt ECU fBEFS 



/Rit^nitza Ljnfl e^csmmandjf PrnDOS 

iA££lKh« 1 "erreui tade BI en A) 

/Rifferve fAf page/a) aou3 le BI 
,-tll>*re buffer oljeemj par GETBWB 



Variablaa en page sisbale B^SIC.SYSTEH 



EXTKSCMD 




SBECi 


fj}ip v^ra incerpr^tfiur «xt^rieur 


XTRSADDR 




IBE50 


^Adrease e^'une cammande ejrt^rieure 




EfflJ 


$BES2 


; Lon^eur-1 d\j now de la cojafirande 


JtCJttlU 


EJO 


$B£53 




FBITS 




$BES4 


iFatamdtroa optlonncla autiyria^a 




ega 




f Vetitaur vers la cvBiaoiidv viitxS^ 


XRETBRH 


EQB 


SBESE 


/RTS i7(^nu en page globule da £fi 


SSfjIlfTO 


EQB 


$EEE4 


.Faraaiteet de asT/SET FILE ISFV 


FIMDATE 


CQU 




;Datf du dernier fifihier utiliak 


' Variabl^a 


et aoua- 


-programmes an page gjrabale Pra^QS 


BATE 


BQU 


$BFSO 


;Pate PtdDOS 


MACHID 






; rd&nttflcateur de la nachlne 




BOO 


fBFEB 


/Veateur entree d ' Int^rntptlcn 


SETISFO 


son 


5C3 


;caae ae SET t iLi: ifltv 




f07 


/ffcnbra de pateaitio pout SETINFO 


r 


ttetenrsi ett. indicateara 


KDSOVLD 


Eoa 


fCOlF 


ilndlCi flffic/inpo 80 colviuiaa 


TXTPACEl 


EQO 


fC054 


;Afflchage page 1 et aiaolre e 


TXTMGE2 


EOU 




;Acc*3 n^noira X al RDSOSTORE 




POT 


DATHEBS 


SCSI jlnclut le reJooeur 






DATMEm 


]t>.t rnnmand/i't 



Source 

'DATHEUR.SCEr 





1 

2 
J 
4 

t 

7 
« 

10 



1 ' partle: Reloceuc 



* IfiStBllaiion de la cosmande perBonnalla^e 
' entre BASICSYSTEH (BI) et sea buffers 

* R^/therr.he s'lt y * une carte snurlSr et al OLli 

* d6tOcminc 1^ nuA^FO du ala^ Dc^ oll« j« trow^ 

* pula lan^v 1 'execution de la cotamonda HEtBtE 
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■2 

I 

I 



ra 

El- 



11 

ir 

13 
n 
15 
If 
17 
JS 
1 » 
JO 
11 
^2 
23 
2t 
25 
2S 
17 
ZB 
2i 
30 
31 
32 
71 
34 
3i 
JS 
37 
3S 
3» 
JO 
At 
42 
43 
44 
45 
4f 



49 

50 
51 
S2 
Si 



57 

5e 
tc 
« 

f3 
M 
«5 
t« 
(7 
bS 
6) 

70 



STTn 



Snoert 



IJ3X 
CMP 
BEO 
LDX 
STX 

WK 

nuD 

BEQ 
LDX 

stx 

LD.\ 
STA 
LDA 
STA 

Lon 

JSR 
CHP 
BNE 
J«f 

STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LOA 
STA 
JSH 
J3lt 
LUA 
STA 
LDA 
JSR 
BSC 

^aii 
jHe 

CLC 
HTS 



Tgeusoa 

f fat 

Sllc 
mmz 

SIIplus 
f$FF 
APPLE ID 



; Rechorche Is slot: dc Id xouxIb 
r'T«jt Id jtactiine: eat. //c 
;Si c'ejr nn //c aloes SO tit 



tslnon 60 Hx 



,Sl II OU XI f 

;l3Dle bit 7 #t J de MCHTD 



,-Sl //a au //c 



FREGMD+J 

f>N3FAG : R§secv« flutant f^j^ea tyu 'en 

t$lis /SI pan d'cTF^uF fA)- edc-. iu//er 

SgaLhetn /irinon (A) = code tJ'erreur 91 
aiKVUT ;AttScne -no EUiTeRS AVAILABLE' 

EXTRNCUDf2 ,'Injtalie la caimantig HEDftE 



ADR*1 

to 

EXTRJiCMD*i 
ADR 

PCI+J 
4<DEBVT 

cmtt 

tSUTCOUJtT 

SSCIUFO 

iSETIMFO 

BOSYSTEM 

Sno-Bcr 

tSAOCALL 

EimoUT 



; lnlt.lali.se AdrMse d« trinaiert 



f HsloQC 1g pzagrajWRG ^oua la BI 
y£pc£i,-ute le ^.-ijeiMsiiUv HEffRE 

;sinon maattie j*i Inf otsitlojii 
;du fJchJsr DATHEUR pour isettre 
/la date de demi^re utilisation 

/S^ll n'y a paa d*erreurf 
iConvcrilt 1« codo MLI vn cods BI 
;Afr£cna 1 'flrrsur er fin 

iPas d'erreur isinon code dans A} 
.■This Is the friend 



ftejoje Je croflriBJse de son incienne adrejse = DEBUT 

vers son impjant a ti an pmHBn«r]t« sous Je 51 ^ fFJfrjMKMDJ 
Le9 dctjK Rdrcsscs doiv^nt &trc d<^v multiples do 356 

La zone Has tl(inTi&&s eat a^par^^ par DFB r= ERKf 

Le proyraame prentl en coapte la stFuctues d'app^l au MLl 



; Indlapsnsabl^ pour lffSDSP2 
J Poar Is teana^sTt dsa dann&sa 
/ 1 ' J Ji^t rvc^tJ oil e^t ^qals i 
ialors tJ^fiut des donn&€3 
/DSMd& una Instruction at 
/determine aa longueur 

, i 'Jliati action •jt-cJJ'? fOfOO 



71 


HELOGE 


LDX 


to 


72 




LDY 


t$FP 


7J 




LOA 




14 




iJBU 


Stzans 


75 




JSR 


INSDSP2 


7£ 




WY 


tEKGTH 


77 




CPY 


*2 


IB 




BUP 




7S 




LOA 




Be 




CMP 




Si 




BSE 


§noiBli 


S2 




DEY 




»3 




LDA 


IPCL) , r 


84 




CMT 


tSBS 


«i 




BNE 


SnoLill 


St 




DEI 




e7 




LOA 




Sg 




LDY 


15 


as 




rwp 


t$20 


se 




BEB 


Smli 


»i 


9numll 


LDY 


12 


S2 


§mll 


LDA 


IPCL} , r 


)3 




SEC 




>4 




SBC 


i>DEBaT 


ii 




anc 


$t rans 


it 




CMP 


i^NBPAS 


)7 




acs 


St ran J 



/comport flvec 1 'Adr&sse do di^but 



am 

99 




ADC 


eJSlnniXDTji. 


;Slnon caleial a I 'nczttit da paids 


99 

lOQ 




STA 


fPCL } , Y 


r fotl^ d« 1 *adTSSBS cranelat^s 


1^1 




40 




I Q2 




INY 




/Longueur r€elle 


1 OS 


§boucJ « LDA 


(PCL/ Xf 


i Tzans fert un octet 


104 




STA 




r'v^r^ ^9 nouvelle adress^ 


IQB 




ISC 




/ C.a IfT]]? nd i"^.^ xui va n 






INC 


ADX 








BlfE 










INC 


FCL+1 








im 


ADR+1 








LDA 


f>DESUT-tNBPAGiNum4ro rfe la paje finale + I 


ill 




CMP 


PCi+l 


:Fln tfu pcotjTaTomfi sf on n 








Sfln 


ptTansfir^ Iss NBPAG pag*s 


113 






/Tcanalsrt IAS oiststia atilvarjt 






Biil 




fTcanalcrL en continue (donn^esl 


123 




Btf£ 


§boucl e 


;la iojigueur ee J 'instruction 






BEQ 


SBLOSE 


flnttxuetinfl iMlvanta 


11 7 










iia 


Sfln RTS 






11^ 




















ill 






la anuria 




123 








124 


* 




'11 y a une 


carta aourls et, si oul. 


12S 


* 


FfiCherffhe Jlot Oii eJlo est mr\ninif.-&A . r./* j-^fliilfAf <»-■* 


12^ 






2£7 










1£9 


THOUSOU LDA 


tics 


; D^taTTOlnazlon du sloe sourls 


129 




SM 


ADfl+I 




130 




LDA 


«fl« 




131 




STA 


ADH 








LDX 


41 


; It4ir:hamh« pjirmi ] ^* 7 .^Inf * 




fsvivnnt DEC 


ADHtl 


f-Slot Mulvanz 


134 




DEX 






J.33 




BMI 


Snoao^ise 


; aaurls dans ausuna ilea slats 


13i 










137 




WY 


t$05 


; Signature d'un piclphiclgue 


13S 




LDA 


IS3S 




1 90 




CMP 


IHDfi,Y 




1 40 




BNE 


Saul vant 


J alnan/ slot aulwmt 


141 














LDY 


t?ov 


; Idsm 


14 J 




WA 


t}ia 




144 




CMP 


IADRl,r 




145 




BNB 


§sul vant 




24ti 










HIT 




LDY 


ifOB 


/ Idem 


















(ADS} , T 








3NE 


Ssuivant 




Ifl 










-1^ 




LDY 


tfOC 


; SiqnatuTO rf'iiD joystick 


iS3 




LDA 




/au &qulvalailt iph^dl*/ 


1S4 




CPIP 


fABK.) , S 


iSOitriSr ecc.J 


155 




BNE 


§3ulvant 


; slnon, slot suivant 


1S€ 










157 




LDY 


iSFB 


iSitjnature de la aauris 


l£t 




LDA 






1S9 




CHP 


lADm) , Y 








BtiE 


J juJ vant 


fSlnoHf slot auivent 


1€1 










*Vit 




LDA 




;Polda fort du alct aeurla 


1£3 




STA 


HOUSLOT 




1 ii4 




RTS 






1££ 




mmouisa LDA 


tB 


/!i'il n*y a pan id« fdrtL« aourla 


1S6 




STA 


HOUSLOT 


;alora HOVSLOT - 


167 




HTS 







adt^aaa d« fin 



Source 

'DATHEUR.SCE2' 

* 2* partle: Code r«logaable permanent 

1 

3 DS $(100 • ,ie dibut dale ttra al Ifni 

4 

f * » 

7 • Internriteur del commandas HEDRE et l.tBEUE ' 

S ' si aucune daa dsuK ^a»BAflf^A.« n^j^.-*f r^tr^nnuSf on ' 

^ ' f'AtauTT^v J i'adiaaas d'uns AvsntLii^Uti autf« eomdjida " 

10 • . 
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11 


m *r i'*^^* ^T^**^ t* It*' fH'P***** ****** 


an 




12 










99 


* 






* 


13 


D^UT 








1 00 










14 




LDA 






i 01 










15 




STA 


ADR 


/mise dans an pointaur tempozalre 


1 02 


* Met i 


Jour le cfdte du ayat^me A I'aide dea toucfiea 






2iDA 


ttti a 'WLI] d 1 

vfA I tti ri 




1 03 


* MOfttante pour incT^sntsr, daacmndants pour dficrement er^ 


1 7 




STM 






104 


* <- St 


-> p<?ur pi99&r aitejmativejaejit des jours aUX tliols. 


19 












* nil MUX AnnAfta nu siix heur&s ALT AUX Joiftuti^a. 


tf 




U^V 




fPtjint^ 1 ' cdract^t'^ i 'entree 


106 




Bi\ abxAvlatlona d« troi-v i«itcr-Aj. 


£Q 


^compare 


IKX 








* in cJbL« a.rfl'^ti^K tfjt fclJt jyat^flie ou par d^fatit 


21 




Iffy 








* ceiie 


de la 


demiere utlllaatlon du programme 


22 










1 09 


* Du Bncaie le 01/JAH/8S 




7-3 




BPL 






HQ 










34 








p" Conuejr'ji4fin ASCII po-aitS.£ 






LHA 


i<DATE 


f Da t A ou sya t Afls 


5S 




•QSP 


(Apr) f ¥ 




11^ 




STA 


ADR 








BEQ 










ImDA 


i?-DATE 




z/ 




t^H 




; 3lnon compsTe avec une ainuscule 


lit 




STA 


ADH-t-l 




29 




CMP 


(ADR) f y 








JSR 


TESTIME 


^ (^^^fTlvtt r 5 1. oji St tfi^'t Qe -id us^fi 


29 




BEQ 




fMlnuscules laentlquesi sulvants 


IJ ff 




sec 


§dst&Q 


'Hi } ^ „ , , _, t- A — i/ijk t.i 
f jyA -LC Sylri^0Ja& BSW OS JO tJa 


3Q 








jRactierche iin pointaur coimsnda 


117 




LDA 


f<FIMDATE 


i Dcte du fichtsr 


SI 




LDA 






118 




^A 


ADR 




3£ 




BMI 




/ Un caractAcc d ' tinu coBmand« ? 






LDA 






3J 




Bfl 




;Va cesLsr it commMntSe auivtnze 


Z20 




STA 


ADKtl 




34 














^tSH 




f BO re r iste 


35 




BEQ 




i Pol n c I nul " eeiaiaandis 1 n ccnnv 


122. 




sec 






3S 




TAX 




ioinon 11 ejt mis comne it)dic& 


123 




LDA 


is 6 




^7 










124 




STA 


AA 




39 




ckp 


If 


/doit ftrc un rctcvr ^Jrari^t 


1 35 




UML 






39 




SHE 




f 3i n ail HErv ur tie syii t ax tt 






STA 


MH 




40 




LOA 




/Charge 1 ' adresse de la cosaaAtitie 


1^7 




LDA 


tl 




4i 




STA 


XTBUADDR 




12B 




STA 


JJ 




42 




LDA 




X; Idom poida fort 


129 




IDA 


#£3 


Sitewn par dvitvt OOnvv 


43 




STA 






130 




STA 


HH 




44 




DEY 




,'fitmoxl*^ 1m loJTgriJour ** X 


1 31 




STA 


MH 




45 




STlf 
















4f 




JjDA 






Y33 


Sdat^^ 


U7K 




-Tnlt-fmJf ^j- 'T'Ji n J d-f 4 

J J./1J. CJ. X X iJC IrUJ □ QlOA^C 


47 




STA 






134 




SVX 


TAB 




48 




STA 


PBITS-f-L 




1 35 


Sboucle 


JSR 


AFFICHE 




49 




STA 


PBITS 




136 




JSR 


CLAVlBH 




.50 








f La aaaatMnde a ^ t ^ t rauvS 


137 




3CC 


§boucl e 




53 




FTS 






139 










52 




SEC 




iBztout dv syiittxv 


13$ 






ACTIVBL 






t>HtiU>SU 


J/C 


$0000 


/nSdut A la casmande pr^c^c^ente 


1 40 




JKR 


PTQRMAL 


t A/\nule un jl n VGCJe ^venL uol 


54 










141 




JSR 


TEXT 




55 




d' indirection vers Jea cceminaes 


142 




JSR 


HOME 


jet poal tionne en haut A tjauah^ 


5£ 


* 








143 




LDA 


§5 


t'DAccnnecte Inverse pour AFFlCtlE 


.^1 7 










7 44 




STA 


TAB 




55 


OfDVECT 


CO J? 


* 


/ Vcattftjrj d eommandes 


14S 




JSR 


AFFICHE 


^Afflchag^ d^flfiitlf 


59 






LI3ERE 




US 




LtJA 


fl 


r'Pr^t4^e la preml^pe lliyn^ 












147 




STA 






£1 










14B 




LDA 


t$FF 


iAutovise I'uftlchago de I'heure 


62 










149 




STA 


AFFIAG 






*t**ir****:t*t±* t** it- f^it^lf^^r* ******** ********* 


150 




JSR 


SAUVHEUn 


r'^ffauve-ffflrcie heyre et date syst^iae 


f if 


* 








l5l 




CLC 




/ P'flV irf ^prr^Fir ^ninnn nosJ*? dAHa A} 


6^ 














ItTS 




gThla la tito emd *^ friend 


^0 


' :3upptlm^ eoucea lea e&uafflancfej inscaiJ^ej par * 


l53 










*7 






154 










SB 


* j'lJ y 




155 


* Conversion eC test ds la date 


69 


* 








156 










70 


t ±1r* W** ** t ****************** ****ir-t-**t ******* ************* 


157 










71 










15S 






4 ■ostctii peAnt^B pae (ADS) 


7£ 


LISEHE 


LDA 




fKenvole le poinzeiiT de castnonde 


ZS9 


* Teaz <se valldLl^^ pui9 


pj^orij-ati cm dans MNf HNf <J<Jf /Off AA 


73 




STA 


EXTRNCMD*2 


;exteAeure sur un ftTS connu 


1 60 










74 




LDA 






1 SI 


TE3TIME 


LDY 






79 




STA 


EXTR}fCMD+l 




1S2 




IDA 


IHDR) , Y 


itieurv 


■ 










1 S3 




CMP 


124 




77 




LDA 






144 










79 








fPaa touche A mon IRQ 


I C5 




L£>\ 


to 


i&l h«ur« f^x^sa^f mS.3B A 






S£l 






1 66 






an 




BO 




LDA 




iU^a^ctiv^ Im aouris 


157 










SI 




LDY 


iSETMOOSE 




lis 




DEY 






SS 










tg9 




T.m 






#S 




U?A 






170 




atp- 


no 




$<§ 




STA 


IRQLOCTl 




1 71 




see 


SmnaK 




AB 




LDA 


KIRQEUT 




ill, 




LDA 




;sl minute taaasSf alsa A o 


»t 

99 




STA 


IRQLOC 




1 73 


§mnok 


STA 






9? 




CLl 






1 74 




















1 75 




DEY 






09 






FREEBUPR 




1 7S 




LDA 
















177 






iZOO 


^Hofi dct6 al miii6c > 100 


91 










Z 70 




scs 


fnoaaze 




93 


*************************** ** ***************************** 
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LSR 






93 








» 


ISO 




STA 






B4 


* 
















ss 


* 




lA^ 




DEY 
















tS3 




LDA 






97 


* Four 


ceuji miL vcf ul an L curui alLrcr Is 3L.aLuL cJtr J a ^ 


194 




TAX 







Pom's n* 24 



1 Sfi 










272 


RPL 






1S€ 




Lsa 






273 






i Fot o ur A ijA uc-her 


1B7 




LSR 






3 74 




TAB 








LSR 








BPL 


fretour 




169 




LSS 






276 








1 90 




BEQ 




/lion datS si Is aols est < 


277 




DATABf X 


;IneF^m^Fite- sttiv^nt vaieur ds TAB 


191 




i^iP 


il3 


*■ c\j > 12 


278 


UJA 


MAX, X 


iCoa/iar^ avec la maximum 


J 9? 




ACS 


SnadB t B 




279 


CMP 


tATAS, X 




J 93 




STA 


MH 






BCS 






L94 










291 


SJM 


MIii(, X 


f'Sfevienz au mlnlauti 


19^ 




TXA 




; Jour 


292 


STA 


DATABfX 




L3€ 




AUD 


f$lF 




283 


DEX 






197 




BEQ 


Sjioda t e 


;Non dit^ Is ioar eat - 6 


234 


BPL 




i^uccejslveaent MlftMH,JJ,MMMAA 


1 9$ 




STA 


JJ 




285 


BWI 






I 99 




^hC 














200 




RTS 






2&7 


SdAcr^e LDA 




J- Cchm/Mi avoc 1« minimum 


201 










296 


CftP 


DATA£, X 




202 




st^ 






289 




DA TAB, X 


;D6cx6msnte suivant valeuit d<s TAB 


S03 










290 


BCC 






204 










2ti 


HfA 


MAX,X 


tR«vl9nt du JBBximim 


205 










292 


STA 






306 






293 


T>EX 






£C 7 










29^4 


SFL 






209 










29Sf 


AMI 


Sr*toiir 




2G9 




da la datm JJ^J<M,JU et do i 'he tire HH,tOf * 


296 








210 


* pills 


sauvagardtt dans icj ^liressea aystAae et iichler * 


2S7 








21 1 










29$ 


Atilciiaeie 


de la dat« 








LDA 


HM 




2 99 








213 




STA 






3^0 








21 4 




STA 






301 




JuuXjr It! flitjis fen 3 ItiLLra^) , 2. 'snn^e 


215 




IDA 


f& 




302 


' at J. "fleur* 


sui vsftt l&s 


VBleiit de JJ^ltffAAftiHfMli. 


21S 




STA 


DATE*2 




2^3 








21 7 




STA 


F1MDATE^2 




304 


AfTICHE JSR 


CSiOOT 


^ Bord tichs do 1b fan fit re que 


21B 




fJiA 


MM 




30S 


JSR 


UP 


jl'ott 30lt ■ETi 40 au BO cnlnnnes 


21 9 




ASL 














220 




A3I. 










§4 




221 




ASL 






308 






i^SBUvagards t 


222 




ASl 






309 


PHA 






223 




ASL 






31 


J5S 


HQRMAL 


/PB3saga an modB vidSo normAl 


224 




OM 


JJ 




311 








725 




STA 


DATE 




312 








326 




STA 


PimiATE 




313 


JSF 


OUTDO 




227 




l£JA 


AA 




314 








22S 




ROL 






315 


CP y 


TAB 


iAtiicti^g:^ eji inv^ira^ ^uivant TAB 


229 




STA 


DATBi-1 




31 € 








230 




STA 


FIMDATE+1 




31 7 


JSF 


INV^SE 




231 




UTS 






31$ 








S33 










319 






-Succossiv^fint JJ,M14,AA,HH.MJV 


2^3 










320 




nAIBABfX 




23t 


' Geation au cavier 




A^l 




42 


/£>I n '*5t m<?Is c'cfft done 


235 










322 


BEQ 






236 










323 








237 






324 


TAX 






238 


* notour mv*c i» carry 


mla en cas d« ret our ohariat 


32§ 




iid 


: Si strlctOBvnt InfArlAUr A 10, 


£■39 










326 


BCS 






£40 


CLAVIER 








327 


t£A 


t'O' 




241 




WV 


TAB 




32d 


JSR 


OUTDO 




242 




IDX 


ORDRE, Y 




329 




400 


^Atncha X fcflf A-o; 


243 






tS9S 


/FJAche — > 




JSH 




ic-A-d succeaslveiaent JJ^AAjHHrMS 


344 




BEQ 






^31 








245 








i Mem B& 4S£:iii:inn«a faduf //q} 


332 


fjncitfl PLA 






£4S 










^33 


TAX 






24 7 




CMP 


4$S8 


;riAche <— 


334 


DETf 






24B 




BEQ 






335 


SPL 


§bciicJt 




24$ 




CfiP 


i$SA 


iFlkche descmndantu 


33i 


RTS 






250 




BEQ 


idic rAaa 




337 












CHP 






3Si 






/tm ^ 3 






BEQ 






33) 


AOC 






253 




CMP 


fSBB 


;PJ*che aontante 










254 




BEO 


SincrSae 




341 




§3 


tBo\3Cla aur las cicla l^czres 


2S5 




CMP 


*S6£ 






9iCirOi S Li/A 


mzs-3^y 




2S( 




BEO 






343 


JSR 


OUTDO 


:Af£iche un das 3 caractirea 


£$7 




OiP 






344 


IKX 






23n 




UNt. 






34 5 


DE¥ 






259 




SEC 






J4 t 


BHEi 






2iC 




RTS 






34 7 






; Suits 


261 




CLC 






348 








3ty 




RTS 






349 








2€3 










SS-G 


' Activation d»s int^rrupT i fd'\M 


£64 




CPY 


§4 


; rfljbLflfttlon vera in ^auctre 


3Sl 








2^5 




INY 






352 








2£€ 




BCC 






333 


* Active iB soMSla atln d'autozxsvi ioj intexz-upcJonj VBi 


2S7 




LDV 


iO 


, jRfltour A droits 


3.54 


' done une fr^guence de branch&ment ve£9 IHQAOHZ da SOUz 


266 




STY 






35 S 








2£9 




&fl 










MOOS LOT 


;Ta3t.m 3'ii y a une sourls 


Z70 










357 


BEQ 


Sne i rq 




2fl 








r'T3t>Ulation Varj la droits 


359 


SEI 







32 



Pom's n' 24 



3St 


LD/i 




fP^i^^ctcpjL'l 1 'int;«TX[jption IRQ 


446 


art 






J«D 


STA 






447 




t?<SS 


iPaslLlan du nil $0 tvl WJi»^3 


3«i 


LDA 


§VBCtlTqi2 




448 


SsligntO U3A 






3i2 


STA 


IKQIOC*! 




443 


EOR 


LISE1,X 




3t3 


LDi 


IISITHOUSE 


Initialise la sotirls 


450 


STA 


LINBl.J! 




3tt 


JUR 






4S1 


§na£il itfn DE.C 


SC 




3fi 


IDA 


48 lAc^Lva la aavrls ct sut^rlve 


4S3 


SHE 


S£iTli 




J« 


LDI 






*S3 








J«7 


JSR 


soums 




*d4 


UiA 


tlio 


/Coapceur aea l/i sec<inaes 


3ia 


CLI 






455 


STA 


SC 




Si} 


§nolcq RTS 






4Sf 


INC 


DATE*2 


ilncrbmBtite lea ninut«3 (sfstkme} 


31(1 








4S7 


LOA 


DATE-ti 




371 


Sv9ctS.eq JHP 


IRQSOHZ 


Afiroxxv di) 1 ' ifitoexuptlen fr«li 


4S9 


cue 


tea 




37S 








4S3 


auE 






373 




«<$ 


WA 


to 




37* 


' ■■ ^- 






4tl 


STA 


DATD-H 




375 








4S2 


INC 


DATE+3 


S Incirbaante Iss heurea (ayattioe} 


376 


* Appelle un 


34Utf-pro<;rrajure sauris points par Y dans la 


4f3 


LDA 


DATE-l-3 




377 


* CAbie de la 


omrt:^ sauris (contralrement flux profjrsBaiea 


444 


LDY 


fS- 


;Haxlmijm dma anitia d«s hsurea 


31 » 


* {7att0 tatje 




v« pi*** p^iLJl^ tin //e *t un 


4f5 


CMP 


t2t 




373 








4ii 


DIB! 






3S0 


SOKfflS PHfl 




Preserve un 4v9ntual peranitce 


467 


WA 


§0 




J«l 


WX 


fO 


AI>S adeease d# la satirls 


4 it 


STA 


DATEtJ 




m 


SIX 


JIDR 


(et non son ntja4ro c/« t^l^phonej' 


4ii 


LDY 


f.j. 


,• Maximum modi f 14 al HH ' 23 heuzes 


$03 


tax 


HOUSLUT 


tiana X avec n ' jloc kauris 


470 








3M 


STX 


AOR* 1 




471 


^antr& LDA 


AFFLAG 


:Affictiaiim autoclai ? 


MS 


IDA 


lABP)* Y 


Polda £alhl0 aouM—prt>^rmam9 


473 


seQ 


Sliniiq 


■slnon Intanrupticn temrin^e 


39$ 


STA 


ADS 


tlana le vecteui: il'ln<ficeQtion 


473 


STY 


HAXIBBH 


ftHtnoeif^ Is aajtlmun daa h^t*z<ts 


3BT 


TXA 


;I/apllqt2e 3^71 etana A 


474 


U>J 


tis 


;FoLnc& aur 1 'unll€ d^s jvJnuLej 


399 


ASL 






475 


Jj(jief*nff TTA 






393 


ASL 






47i 


srr 


APPIEID 


;1I t II* au //a 4 //c f 


3M 


ASL 






477 


BFL 


Scadtrmn 




3#i 


ASL 






479 


BIT 


HDBBVID 


/Afflahage 80 eolonfisa ? 


3fS 


nur 






479 


BPL 






M3 






ff^cyp^re A 


490 


LaB 




fDlviae par 2 ec isat dc pasit^ 




jm 


(ADR) 


pi^ogramms souFis eomapondmnt 


Ifl 


BCS 


Scadren 


;SL Lapalre => a^molre principale 


3$S 








4S2 


err 


TXTPACE2 


/sinon => jrejEolre pTlnclpalar 


39 f 








4B3 


Scadran TAX 






397 


************* ************* **t*»*wm*m**wrt***TTr****T*w 


4»t 


INC 


LINEl.X 


; Iner^Jaente un chiffrs aaivant X 
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* 






4S5 


LDA 




Y/ffiajeiaiim dApaas4 ? 


3)i 


• IHOSOHZ . 


Geatio/i tias Intsrcuptlons dutfj au belayage 


4se 


CUP 


LinBlfX 




too 


' V6tt:ical de 




4B7 


BCS 




V alnon Cln 


(01 


» Mfllntient 




i 1 'h&uts St 1 'afflche aur la '* 


4BB 


LDA 


I'd- 


1 ai OLTI r&aia^ A i^ea 


<02 


• premlAre 


ligne de I'ecran 3I celle-cl eit proLigim ' 


4B3 


STA 


LISE1,X 




403 


* 






490 


Sdoubla IXY 




;«t pointe ie cfilffre Julvsnt 


404 


********************************************************** 


4 SI 


CPY 


tl3 


;pQinte sue ' ? 


AOS 








4 S3 


BEQ 


gdoubl« 


/ ai ciui pointe Je lyhlffiv .^u/vflnr 


4Ct 


LSQSOHZ SEI 






4 93 


BIT 


TXTPACEl 


/Ramet la a^moljta prlnoipaie 


4.07 


IDA 


AD9. 


■PrtMrve ADR, Acc, X, X 


4i4 


cpr 


HO 




m 


STA 






435 


arm 


Sincttae 


r'ZncrfisentB en Gtialna 




IDA 






49f 


Sflnirq BIT 


TXTPAGEl 






sn 


SAVE*1 




437 


LDA 


ts 


;InterrutJon VBL 


*xt 


U3A 


ACC 




4St 


LDY 


/SETMDBSS 






STK 


SAVA 




4ia 




SOURIS 






STK 


SAVX 




300 


IBA 


SAVE 


,"l*et?lip^re ABR* A^c, Xg Y 


«♦ 


STY 


SAVY 




591 


STA 


ADS 




415 


LDA 


to 


■Hade IniCtll 


592 


LDA 


SAVE+1 




tis 


iny 






503 


STA 


ADRtl 




41? 


J£R 


sotmis 




304 


LDY 


SAVY 




tit 


LDV 




503 


LDX 


SAVX 




il$ 


JSR 


SOURIS 




sve 


LDA 


SRVA 




12Q 


BCC 


fnotre 


'Cast A nous 


507 


CLt 






421 


IM 


SAVE 


•Slnon, ticapiif AOS, Acc, X, Y 


503 


RTI 






*?3 


STA 


ADR 




5C> 








423 


ua 


SAVE-tl 




510 








4H 


3TA 


ADB+i 




Sll 


********************************************************** 


42$ 


till 


SAVt 




ilZ 








43S 


LDX 


SAVX 
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* zone aea 


varlahlss ac conatantej des dlrexs modules ■* 


427 


IDA 


SAVA 




Sli 






* 


43S 


JHP 


IROENT 




SIS 


**tt**t*]^* ****** **************************** ****^********* 


429 


§notr9 LDA 


nworop 




Slf 








430 


CMP 


41 
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6 




43i 


tusu 


Soktliti 




aitp 








432 


LDA 


to 


;Slaon plus d' iltiebags 


519 


* Constantes de 1 'Jflt*zpr#teur de cooBendss 


433 


STA 


AFFLAS 




520 








434 


f oVf J so DEC 


HZ 




521 
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43i 


BED 
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S12 




43f 




Sfinlsrii 
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437 








524 


CMOirsr Bfftr 
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§sea6nde LDA 


tfAXHZ 


t'lnlt, cflBpt*ur rf' Interruptions 


525 


ASC 


"LlE£3fl£^ 




Hi 


STA 


HZ 




52 ( 


DFB 


CHDS-CHDVECTn/eolnteai et siparateue 


440 


IDA 


AFFIAS 


;T&3t i# drapmau d'afficha^ 


527 


ASC 


'HEUKE- 




441 


EEC 






MB 


DFIt 


tyinn-tjmvECT+l ; Idem 


442 


USX 


If HO 


fPaaltlon du 40 wvl^nriifv 


S2i 
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443 


BIT 


AfPLCIO 


,11 t II* CJU //u ( //t t 
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444 


BPL 


;^lign4Q 
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■ vaeiablas 


du modul e 




44S 


BIT 


RDBOVia 


;A{!lchage 60 t:ol(mnej ? 


532 
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Pom's 24 



533 










554 










534 




FQtl 






5S5 










S3S 
















Cob li moduZi d'intsrru clou 


JJS 


MM 




I , Mo J 3 




5S 7 










J J7 






I i Jour 














538 


Hfi 


DS 






539 


-EAVt 


DS 






539 


MN 


DS 






560 


SAVA 


DS 






540 


ua 


DS 






SSJ 


SXVX 


DS 






J^J 


MOUSLOT 


DS 


I /Slot 3&uris «u ffinaR - 




Sf^ 


SAVY 


DS 


J 














SC3 
















SS4 


AFFUta 


D£ 


















as 




• T rl^w^*- T -F -f ^ B-^^ 1 1 mi y ^ / /f^ 


543 










sa 










54$ 


mis 


ASC 








HZ 


DFB 


-3? 




547 




ASC 


"JIVHAM r JEW" 






SC 


DFB 






i49 




use 


-JDUlDtrSEJ"" 




^ fi^ 


MAXJflO 


DFB 


■7' 
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ASC 
















$50 


ESS- ACE 


ASC 
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J51 


ORDRE 


DFB 


i, 2, 0,1, 2 rOrdre mSmaSre da m,MH,MA 




if a 








552 


H/^X 


DFB 




HN 
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553 


MIH 


DFB 


0,1,1,0, a . Mialaum de AA.MH, JJ,II», »H 




5 74 




BQU 


' -DEBtfTtSPF; Nambre de pa^a i reJoger 



Recapitulation 

VATHEUR' 

Apres avoir saisj m corfe sows 
moniteur, vous le sauvegarderei par 
BSA VE DA THEUR.A$S000,L$494 
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BE 
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6188- 
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62A0- 
61A8- 
SIBO-^ 
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61C0- 
61CS- 

eiDO- 

61DS- 

eiEO- 
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£1F8- 

6200- 

620 B- 

6210 

6219- 

6220- 

C22B- 

6230- 

6238- 

6240- 

6248- 

62SD- 

62bB- 

6260- 

£268 

6270- 

6?7n- 

62S0- 

£288- 

e2S0- 

6298- 

62A0- 

ezAS- 

62BB- 
62BB- 
62C0" 
62C8- 
€200- 
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62E0- 

6zEa- 
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62F8- 
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S E SD 
13 /S 

63 A9 
SO FE 
9S SS 

DF ei 

AS BE 
17 A9 
SD 47 
AS 00 
A2 00 
20 4F 
20 73 
FC A9 
62 A9 
8A 64 
03 Bl 

00 an 

3C 90 
88 Bl 
8D 46 
4A 4A 
BO OD 
FO 05 
60 AD 
CI BE 
BD CO 
OA OA 
BF BD 
BD 91 
OC FD 
C9 35 

rg SB 

C9 DC 
C 9 BE 

02 AO 
88 10 
10 E9 
UU 4 b 
9D 46 
BD 86 

64 90 
£4 CA 
FD 20 
20 73 

DB CC 

F2 BE 

01 FO 
A3 BO 
24 ED 
OA 6D 
4A 64 



07 BE AD iC 

A9 00 AO 12 
BF 8D FF 03 

03 SB iC FS 
FE A9 BF 85 
90 24 A9 BE 
85 FF 20 DF 
56 SO 46 S4 
64 A9 01 BD 
BD 49 64 BD 
8E 4B 64 20 
62 90 F8 20 
F2 20 99 F3 
05 SD 48 64 

01 85 22 A9 
20 21 62 18 
FE CS IS 90 

4 9 64 38 al 

02 A9 06 8D 
FE CS C3 BO 
64 SS Bl FE 
4A 4A FO 11 
BD 47 64 BA 
9D 48 B4 18 
49 64 RD 93 
AD 4A 64 BD 
BE AD 47 64 
OA OD 48 64 
B£ BE AD 4 6 
BF 8D BF BE 
AC 4B 64 BE 
FO 2C CS AO 

FO jfl /lA 
ro 3C C9 SB 
FO IE C9 SD 

18 ec CO 04 

ao SC 4B 64 

02 AO 04 ec 

FE 46 €4 BD 
64 BO DD BO 
64 CA 10 F.C 
64 DO 4 6 64 
C7 BD 7B 64 
10 EC 30 BC 
lA rC AO 04 
F2 B9 71 64 
4B 64 DO 03 
76 64 BD 46 
IS AA F.a OA 
20 5C DB A3 
68 AS SS 10 
47 64 AA AO 
20 5C DB E8 
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FF 20 
SS FE 
61 90 
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BE 62 
OB C3 
20 53 
20 BE 
FF BD 
60 AO 
02 A9 
fE ^9 
4A 64 
20 4A 
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C9 OD 
29 IF 
60 38 
BF BD 
92 BF 
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SD SO 
64 2A 
60 20 
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FO to 
FO 21 
DO 02 
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10 F2 
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7B 64 
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10 D2 
DE 46 
9D 46 
SO BE 
98 4 8 
20 5C 
20 77 
64 £0 
HO (15 
00 20 
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03 BD 
38 DO 



£309- 

€310- 

6318- 

6320- 

6328- 

6330- 

6338- 

6340- 

£34 9- 

6350- 

635S- 
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64 4C 
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SC 64 
FC 16 

07 2C 
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CE 8E 
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C9 JC 
BF EE 
B9 C9 
93 BF 
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06 4A 
FE 00 

04 ao 

88 CO 
CO OA 
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64 85 
AC 89 
64 58 
D2 C5 
04 00 
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Cl D2 
CA DS 

D"; m 

CF D6 
AF AO 
OC IF 
00 00 
00 IE 



FO lA 

03 AD 

19 20 

20 2B 
48 A2 
as FF 
OA OA 
78 AS 
SD 86 
SE 88 
AO 12 
2E 63 
ft AD 
64 AE 
EB BF 
A9 00 
FO 03 
SD BD 
A2 OD 
IF CO 
5D 00 
64 DO 
EE 92 
DO IB 
93 BF 
13 DO 
AO B3 
90 64 

10 SB 
BO 03 

04 B9 

11 A3 
OD FS 
DO D2 

12 20 
FE AD 
64 AS 
40 00 
01 CS 
00 00 
Cl CE 
CI DS 
CE CA 

c5 no 

C4 C5 
04 03 
17 3B 

00 00 
7S 82 
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TohGniscition dc chainas 

Gt equation^ paramctriqucs 



Ayant apprecie et utilise 
le programme Tokfon, 
pertnettant de modifier 
la ddfinition d'une 
fonction en Basic propose par 
Gilles Mauffrey dans le numero 
1 1 de Pom's sous Ic titrc : "Trace 
de courbe en conversationnel", 
j'ai neanraoins eu bcsoin de Ic 
modifier, car le programme sur 
lequel je travaillais necessitait la 
modification de deux fonctions 
predefmies. 



La version proposee ici permet 
done de redefinir n'importe quelle 
fonction ddfmie par la comraande 
DEF FN YY(X) dans un 
programme, quelle que soit sa 
place, en lui foumissant la 
nouveUe definition de la fonction 
sous forme d'une chainc de 
caractSres, cette chaine pouvant 
lesulter d'une fonnule. 



Apr^s avoir BLOADer le 
programme "MODIF FN", la 
fonction definie par DEF FN 
YY(Z)=.. . peut ctrc modificc par 
CALL 7ZZ2X% FN YYou: 

• ZZ2Z est I'adresse oii est 
charge "MODIF FN", celui-ci 
dtant nelogeable (I'adresse par 
defaut est $300) ; 

• X$ est la chaine contenant la 
nouvelle formule ; 

• YY est le nom de la fonction 
predefinie. 

Le programme dont le source 
"MODIF FN.S" a ete developpe 
sur I'assembleur MERLIN se 
charge alors de "tokeniser" la 
chaine, puis de la mettie k la place 
de I'ancienne definition, k 
condition que : 

• la chaine ^valuee n'ait pas une 
longueur nuUe (ILLEGAL 
QUANTITY ERROR) ; 



• la fonction ait deja ete definie 
(UNDEF FUNCTION 
ERROR) ; 

• la place soit suffisante 
(STRING TOO LONG). 

II termuie ensuite si necessaire la 
definition par deux points puis le 
token de REM, pour que le 
programme BASIC n'intcrprfetc 
pas les codes pouvant resulter 
d'une definition plus courte que 
les precedentes. 

Comme exemple d'utilisation, le 
programme PARAMETRIQUE 
permet de tracer des courbes 
parametriques dcfinies par deux 
fonctions d'un param^tre T, Tune 
suivant I'axe X horizontal, I'autre 
suivant Taxe Y vertical. 

a 



Programme 

VARAMETRfQUE' 

10 GOTO 1000 

IVUU REM FROGRAPBiE PRINCIPAL 
101 a TEXT : HOME 

1020 DEF FN X it) = T; REM &$€^9?S&S?§SSf???SS?S? 

t!^^&^»&&^88S8SS8888SSS 
1030 DBF FH Y (T) = T' REM eS8S9§S88§g§ae&§a§&iS§ 

essse§ss?ssssssesesss?&s&8s&?§ef€@9^&e &&&&&& 

1040 XI = 0:X2 = 273: YJ = [}:y2 = 151: R£W LIMITES 
DE L'ECRAH 

lOiO PA - 2S0: REM NOMBRE DE PAS POUR TRACBR LA FO 
NCTION 

1055 REK IL FAUDRA P,TTEflDRE ENVIMUN : 

1056 REM PA / :?0 + 

1057 REK NOtlBRE DE FONCTIONS IRAN5CENDANTES (COS, 
SIN, EXP . . .) ' PA / 40 + 

1053 REM NOHBRE DE DIVISIONS ET MULTIPLICATIONS • 

- PA / 400 

1059 REM SECONDES 



IDSO DIM X (FA) , Y (PA) 

1070 D$ = cms (4f 

lOSO PRINT DS'SLOAD MODIF FN" 

11 m HEM ttOUCLE DES FONCTIONS 

1110 GO.^im pooo 

1120 GQSVB 3 006 
1130 GOSVB AOOO 
1140 GOSUB 5000 
1150 GOSUB 6000 
1160 GET A$ 
1170 TEXT 

1200 REM AUTRE FONCTION Oil VAT.FIJR 

1210 VTAB 24: HTAB I: PRINT 'D'AUTRES VALBURS POU 
T fO/N) : 

1220 GET A$: IF A$ < > "0" AND A$ < > "H" THEN 
1220 

1230 HTAB 1: CALL - 953 
1240 IF A$ = "0" THEN 1120 

1250 VTAB 21: HTAB 1: PRINT "D'AUTRES FOMCTIONS ( 
0/N) : 

12£0 GET AS; IF A$ < > "O" AND AS < :> "U" THF.N 
1260 

1270 HTAB I- CALL - 95fl 
IZaa IF AS = "O" THEN 1110 
1990 mMF. : END 

2000 REM ENTREE DBS FONCTIONS 

2010 VTAB 1: HTAB 5: PRINT "TRACE D'UNE COURBE PA 
RAMBrBIQt/E" 

2020 VTAB 4: PRINT "DONNER LES EQUATIONS fcW FUNCT 
ION DU TEMPS (EXEMPLS -• • 3*COS fT} +T' ) " 
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203Q 
?Q40 
2050 
2100 
2110 

2120 
2130 
2140 
2300 
3210 

PPPD 
2230 

2240 
2250 
3000 
3010 

3020 
3030 
3040 
3050 
3060 
3070 

3080 

4000 
4010 
4020 
4030 
4040 
4050 
4100 
4110 

4130 
4130 
4140 



-DOHmH LA FONCTION PO 



PRINT "DONNBR LA FONCFION P 



GOSim 2100 
GOSUa 2200 
RETl/RN 
REM 

VTAB St HTAB 1: PRINT 
UR L 'AXE DES X : " 
VTA3 10! PRINT Fl ? 
VTAB 10: INPUT ••";fl$ 

REM 

VTAS 13! HTAB 1; 
UUH L 'AXE DES Y : " 

VTAS 15! PSINT F2$ 

VTAB 15: INFOT ~";F2^ 

RETURlf 

RETURN 

REM ENTREE DES LIMITES POUR T 
VTAB 13: HTAB 1: PRINT "VALEUR MIN FOUR T 
'iTl; 
HTAS 21: 
II = VAL 
VTAB 20; 
STAB 21: 
T2 = VAL 



: T2j 



'VALEUR MIN ET MAX DIF 



INPUT 
!T$> 

PRINT "VAJ.Vm MfiX POUR T 
INPUT ""/M 
(TS) 

IF TZ - Tl THEN MS? 
FERENTBS"; GOSUB 7000; GOTO 3000 
G0SU3 8000: BMTURU 
REM INSERTION DES FONCIIONS 
ONERS COTO 4100 
CALL 76a, f If FN X 
CALL 768, F2S FN Y 
POKE 21£,a 
RETURH 

REM ERREUR INSERTION FONCFION 
CALL 62248: REM REMET LE STACK POINTER COmS 
li ETAIT AVANT L 'ERREUR 
GOSUB 10000 
AS =. "X": JF F.l. = 4030 THEN A$ - "Y" 
IF BR = 53 THEN MG$ = "PAS DE FONCTION - ^ A 
$ 

4150 IF ER = 176 THEN MG$ = "FONCTION " A? -t- - 

TROP LONGUE" 
4160 COSUB 7000 

4170 IF A$ =: "X" THEN GOSUB 2100 

4160 IF A$ = "Y" THEN GOSUB 2200 

4190 GOSUB SOOU: RESUME 

5000 REM CALCUL MAX. ET MIN. 

5010 Mii = "UN INSTANT SVP": CiU^UB 7000 

50?o oPiTERR p:r)m 

5030 Ml = FN X(T1) :KZ = Ml 
5040 Nl = FN Y(T1):N2 = Wl 

SOSO FOR I = TO PA 

5060 T = Tl ^ I * fT2 - Tl) / PA 

5070 X(I) - FN X(T) 

5080 Yd) = FN YIT) 

5090 JF Xfl) < Ml THEN Ml = X(I) 

5100 IF X(I> > MZ THEN Ml = Xfl) 

5110 IF YII) < Nl THF.N Nl - Yd) 

5120 IF Yd) > N2 THEN N2 = Yd) 

5130 NEXT J 

S140 A - 1 / (M2 - Ml} 

5150 A = I / m - HI) 

5160 GOSUB 3000 

51 70 POKE 22 6, 

51 30 RETURN 

5200 REM ERREUR CALCUL FONCTION 
5210 CAU. S2248: REM CF LICNE 4110 
5220 GOSOB 10000 

5230 IF EL = 5140 THEN M2 = Ml i- 1 : RESUME 



5240 IF EL = 51 iO THEN N2 = N2 f 1 : REbUME 

5250 A? = "X": IF EL = 5040 OR EL = SOSO OR El. = 5 

150 THEN A? = "1"" 
5260 IF BR < > 69 AND ER < > 133 THEN m$ " "ER 

REUS DE SYNTAX POUR LA FONCTION " i A?: GOTO 
5290 

527 IF BR - es THEN MG$ - "DEPASSEMBNT POUR LA F 

ONCTION " -t A$ 
52B0 IF ER - 133 THEN MG$ = "DIVISION PAR POOR 

lA FONCTION " -h A$ 
5290 GOSUB 7000 

5300 IF A$ ^ "X" THEN GOSUB 2100 
5310 IF AS = "y" THEN GOSUB 2200 
5320 EOF : GOTO 1130 
6000 REM TRACE DE LA COURBE 
6010 HGR2 : HC0LOR= 3 

6020 HPLOT IX (0) - Ml) • (X2 - XI) / (M2 - Ml) , (Y 
2 - YD - <Y(0) - Nl) * iY2 - YD / (N2 Nl 
} 

6030 FOR 1=1 TO PA 

6040 HPLOT TU f^ffJJ - Mil ' (X2 - XI} / {M2 - Ml 
),(Y2 - Yl) - (Yfl) - Nl) * (Y2 - YD / (N2 
- Nil 

6050 NEXT I 

6060 RETURN 

7000 REM AFFICHE MESSAGE EN LIGNE 24 
7005 COSUB 8000 
701 INVERSE 

7020 VTAB 24: HTAB (40 - LBN (MC$> ) / 2: PRINT M 

G$; 

7030 NORMAL RETURN 

8000 REM EFFACE MESSAGE EN LIGNE 24 
8010 VTAB 24: HTAB 1: CALL - 956: RETURN 
10000 REM NUMERO ET LIGNE ERREUR 
10010 BR = PEEK (222) 

10030 EL = PEEK (21S1 + 356 * PEEK (219) 
1003 RETURN 

Recapitulation 

'MODIF FN' 

Apfds avoir saisi ce code sous moniteur, vous tg 
sauvegarderez par BSA VE MODIF 
FN,A$300.L$7E 
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00 
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OF 
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68 


85 
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20 


41 
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Bl 
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FO 
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Bl 
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85 
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Bl 
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0343- 


FO 


03 


C3 


DO 


F9 


38 


AA 


FO 


03S0- 


2A 


18 


69 


OS 


38 


E5 


OF 


90 


0358- 


22 


AO 


00 


B9 


00 


02 


FO 


03 


0360- 


91 


5E 


C3 


CA 


DO 


F5 


FO 


OC 


0368- 


A9 


3A 


91 


5E 
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FO 
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SourcB T.MOD!F FN' 


ei 


STA 


IN,Y 


/RAJOUTE '00' DE FIN 








62 


DBY 






Assembleur MERLIN 


63 LUUF 


LDA 


(INDEX) , r 










£4 


STfi 


TN,Y 




I ,,,,,,,,,, 


€5 


DEY 






2 * 




* 


S6 


BPL 


LOOP 




3 * INSERTION D 'UNE CHAINS * 


67 * TOKEN I SE LA 


FONCTION 




4 * TOKEN ISEE 


DANS LA DEFINITION * 


€8 


LDA 


TXTPTR 




5 * D'lmF. FONCTTOH DANS 


™ PRMG * 


€9 


PHA 






G * 






70 


LDA 


TXTPTR+1 




7 ********* 


71 


PHA 












72 


LDA 


i>m 




9 * (fROGRAmE 


RELOGEABLE) 


73 


STA 


TXTPTRl-l 


; (FACULTATIF ; NON U 


20 










TILISE DANS GETim 


11 * SYNTAX CALL 7CB,X$ 


FN YY 


74 


LDA 


i<IN 




12 ' TRANSFORMS 


EN TOKEN LA FORMULE DANS X$, ET 


75 


STA 


TXTPTR 




13 * M DEPLACE 


DANS LA DEFINITION DE LA FONCTIO 


76 


JSR 


GETIN 


/¥ = NBRE CAR DE FN 


14 * K i-Z <X$ PEUr ETIfE UNE FOEMULE DONMANT UNE 


77 


STY 


FNTR 


/SAOVE LONGUEUR FN 


15 * CHAINE, EX 


: CALL ?63,A$-h-+"-hB$ FN YY ) 


78 


PLA 






IS 






79 


STA 


TXTPTR+1 




17 fiEM = 


$B2 


/TOKEN DE REM 


80 


FLA 






IS 






81 


STA 


TXTPTR 




1 PNTR = 


$0F 


iCONTIENT LG CHAINE 


92 * RECUPERE ADRESSE FONCTION 




$5E 




83 


JSR 


FNC? 






$3A 


fCONTIBNT ADR VARIAB 


84 


LDY 


41 






LE FONCTION 


85 


LDA 


(FNCNAM) , Y 






$B8 




y6 


BEQ 


UNDEF 


/FN HON DEFINIE 


23 






87 


STA 


INDEX+l 




24 IN = 


$200 


/BUFFER ENTREE 


88 


DEY 






25 GETIN 


$1^559 


/ROUTINE DE 


83 


LDA 


(FNCNAM) , Y 




26 




/CONVERSION EN TOKEN 


SO 


STA 


INDEX 




27 PARSt: 


5D56C 


;CONVERTIS EN TOKEN 


91 VERIFIE QUE 


LA PLACE EST Sl/FFISANTB 




A PAR TIB 


DE $200+X 


32 CHKFLCE 


LDA 


(INDEX) , y 




28 CRK3TS 




/CHECK LAST RESULT = 


93 


BEQ 


FINLIGNE 


; (0=FIN LIGNE BASIC) 




STRING 




94 


INY 






29 FRMEX/L 


$DD7B 


tEVALUE FORMULE 


95 


BNE 


CUKPLCE 


/ TOU JOURS 


30 CHKCOM 


$DBBE 


/CHECK ', ' 


96 * 








31 PTRGET 


$DFE3 


HKCUPERER ADSESSE V 


97 FINLIGNE 


TYA 








AR. A TXTPTR 


S8 


TAX 






32 IQERR 


$E199 


/'ILLEGAL QUANTITY" 


39 


BEQ 


BBR0E2 


/PAS DE PLACE 


33 BRED J R 


$E30e 


/CHECK MODE PROCRAMM 


I DO 


cue 






34 UNDFNC 


$E30E 


/"UNDEF FUNCTION" 


J 01 


ADC 


«5 


/AJUSTE POUR PNTR 


J5 FNC? 


$E341 


/CHECK TOKEN DK 'FN' 


102 


SEC 






3S 




/ET RETOURNE LE POIN 


103 


SBC 


PNTR 








/TEUR VERS LA VARIAB 


104 


BCC 


ERR0R2 


/FAS ASSEZ PE PLACE 




LE CQNTRNANT LES PARAMETRES D 


105 * TRANSFERT NOUVSLLE FONCTION 




E LA FONCTION 


lOS 


LDY 


to 




3a pTKhUNS = 


?E5B2 


/"STRING WO WtfG' 


107 LOOPZ 


LDA 


IN,Y 




3S FSKSTft 


$E5FD 


/CHECK STRING ET RET 


108 


BEO 


FINIR 






OURNE ADRS ET LONG 


109 


STA 


(INDEX) , y 




40 






HQ 


INY 






41 * UME VARIABLE REPRESENTANT VNE FONCTIQN 


nj 


DEX 






42 * (EK : DEF 


FN AB (CD) = 


. . .) EST CODEE ; 


112 


BNE 


L00^2 




43 * - HER CAR 


EN ASCTT NF.nATIF !- "A") 


113 


BEQ 


END 


/PAS DE REM' 


44 * - 2IEME CAR 


EN ASCII 


POSITIF (= 'B'i 


114 * RAJaUTE '.■ REM' SI NECESSAIRE 


45 ' - AURE5SE FOSMULE DE 


M FONCTION {2 OCTETS) 


115 FINIR 


LOA 


f: • 




4S * (POJNTE APRES SIGNE = 


DANS DEF FN AB (CD }-.) 


116 


STA 


(INDEX) , ¥ 




47 * - ADRE55B ARGUMENT INtVRMEjj 'CD' (2 OCTETS) 


117 


INY 






48 * - IIER CAR 


DE Ji' ARGUMENT (-'C'} 


lis 


DEX 






49 






119 


SEO 


END 




50 ■ ORG 


$300 




120 


LDA 


fREM 




51 






121 


STA 


( INDEX) . Y 




52 i7SK 


ERRDIR 


/ERRKOR MODE DIRECT 


122 * 








53 * RECUPERE CHAINE 




123 END 


RTS 






54 JSR 


CHKCOM 




124 








55 JUR 


FRMEVL 




125 " TRAITEMENT ERREURS 




56 a.'iR 


FREBTR 




126 UNDEF 


JMP 


UNDFNC 


/ERR "UNDEF FUNCTION 


57 TAiT 






127 








BEQ 


ERROR 


/LONGUEUR = 


12S ERROR 


JMP 


1 QERR 


/"ILLEGAL QUANTITY" 


59 * La TRANSFERT DANS BUFFER IN 


T?9 








60 WA 


to 




130 ERR0R2 


JMP 


STRLONG 


; "STRING TOO LONG" 
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Tkit c[u'a feire 5 choses a la fois 



Que ceux qui 
aiment travailler en 
faisant deux on tvois 
[■hoses a la fois ne 
fhaiiSJent rien, au 
conlraire, avec 
Apple etjazz lis 
peuvent faire mieux. 
Jazz de Lotus, c'est uu progi'amme 
cree pour Macintosh 512 Ko, eqnipe d'un 
lecteiu' exteme qui permct de dcvcnii" no 
parfait jongieur professioniiel, 

Cinq programmes en concert, 
c'est-a-dire Lin laljleur, uii ^raplieur, uii 
gcstionnaire de fichier, uii ti'aitement de 
texte et un pi'ogramme de 
commnniration rtiinis en un seul 
progiauiine. Ou comineiil etre a dnq 
sur la m6me souris. 




s 





Pouvoir gerer cinq applications a 
partir d'un seul ecran. modifier une 
doiinee dans une application et quelle 
se modifie automatiquement dans les 
autres, pouvoii' sauter d'un graphe 'i un 
traitement de texte sans attentlre les 
secondes qui durent unc etcrnite pour 
clianger de programme, cest bien... 

Quand on s'apergoit que ces cinq 
programmes sont individuellement 
excellcnts, c'cst unc rc\'olution. 

Jnz, c'est Foutil id^al d un directeur 
de semce. 

Preuous un exemple qui exige beaucuup 
de sonplesse. dc rapidite, et de doigte, la 
direction des services secrets : 
- Aver un tableur capable d'afficher 
8 192 lignes sur 256 colonsies. la gestion 
de\ ient beaucoup plus facile. Si un fait 



iiouveau appai'aTt, rien n'est plus koLi 
que d'ftudier deux ou trois hypoiht^^s 
afin de ne pas Stre pris de court. 
- Quand un projet est fin prgt, il laut 
bien le presenter a ses superieurs et 
paifois m&nie beaucoup plus haul: ui; 
graphcur pcrnict dc transformer touted 
les donnees numeriques obscures en 
graphiques lumineux. 



-.lu ..^1- -M^ U 


f r~'t^ 





- Si ie projet est accepts, un traitenieni 
de texte est necessaire pour que chaque 
agent concerne soit au courant dans sc< 
moindres details. Evidemment quand 
on travaille dans un tel service il vaui 
mieux pour Macintosh pouvoir copier, 
effacer. modifier, ou coller des dessins.a 
chaque instant. 





autant les feire en meme temps. 



# Fiihier Edition MfJiliAiaj braphe Trace flHe Carac. Style 

flgiandir 



Presse-papiers 
Tdbleau des reference-^ 



UENTES 



Marche 



B 



5 

7 C?.|jijtes pro 



_8 
_9 
10 
11 

AZ 

15 
14 
15 
16 
17 



ler tr 



UENTES 



Marche Choto 
REPRRTITION 
Directeuf s Uentes 



Frais: j 

Transports 1......?.?., 

Com mri 3sioM..j. 
Divers : 56 



Total des fraisi 57? 



1 ^.nn 



5on 



1 — ' — " r 
ler irim Ztrne trim 




Benefices 



?*me trim 
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Fetiille de travai! Jazz. 




Grace a son gestiotmaiiT de fichier. Jazz 
fait la fusion aiitomatique entre un 
memo et une liste de correspoiidants a 
selectiomier selon un critere sp&ial. 
Et avec on modem full duplex 12l]0 bauds 
en iin instant votre correspondant 
revolt toutes les informations precises a 
I'antre bout du monde. 
Avec jazz Tentreprise est rentable, 
rotidement menfie. pr&lse et discrete, 
miitile d'avoii' 3^ coEaborateurs pour 
rcdigcr le projet. 

Jazz c'est cinq programmes lies 
entre eux si paifaitenieiit que lagent 
double est enfin enterrfi, place a I'agent 
quintuple. 



Z A. detouitabffiuf, B,!', 01, 51iHi Les Ulis LWex, 





Apple 



UN COMPOSEUt TnELEPHONIQUE SUR 

Macintosh d. vmot 



Suite logique aux deux demiers 
numeros de Pom's, voici Ic 
necessaire pour que votre 
Macintosh ait acces au telephone. 
Deux elements pour ce faire : une 
petite carte elecLronique simple a 
realiser, et un programme. 

La carte 

Cortnectee sur la sortie 
"communication" du Macintosh, 
elle ne necessite evidemment 
aucune modification de 
I'ordinateiir. 

Les composants sent relativement 
bon march^ et trfes commnns, la 
simplicite du circuit pla§ant le 
montage a la portee des non- 
inities, 

C'est le relais CLARE qui assure 
les impulsions necess aires au 
systeme telephoniqne, le Z^'"' 
relais Hberant la Ugne quand 
Tordinateur est hors-tensioTi. 

Les schemas devraient perraettre 
dc mener k bien cette petite 
realisation ; le condensateur (anti- 
parasite) de 100 M-F est polarise 
done attention au sens du 
montage. La sortie destinee a 
I'ordinateur doit obligatoirement 
etre munie d'une prise 9 
broches. L'interrupteur est une 
securite pour couper le systeme 
tandis que le Mac utilise un autre 
programme (incompatible avec le 
montage). 



Une rdsistance IKQ. 
Un condensateur lOOjiFy 
lOOV 

Une diode LED 5 mm 
Un interrupteui' 
Un connecteur 9 broches 
Ua relais niiiiiaLure 12V 

Matsushita HB2 
Un relais 5V CLAKE 

15005AB 




T2 



ReTais 5V Clare 



Lc telephone simule par le Mac 
est en sene avec le reel ce qui 
pcrmet de proteger la ligne. 11 est 
impossible pour le Macintosh de 
composer un numero si le 
telephone ne le permet pas. 

Le programme 

II sc chargcra dcs prefixes dans le 
cas des communications : Paris 
province, province Paris (ajout 
du 16 ou 16 1) ainsi que dans le 
cas d'appels a I'etranger. 

Le fichier repertoire n'est limite 
que par la place sur lc disquc. Les 
boutons "precedente" et 
"suivante" pcrmcttent de changer 
de page dans le cas ou une ne 
serait pas suffisante. Pour faire 
apparaltre une page en fonction 
d'une lettre, cliquez sur ['alphabet 
la lettre desiree. Les fichcs sont 
classees dans I'ordre alpha- 
betique, I'article de elasseraent est 
la concatenation "nom7prenom". 

Les menus 
Fichier 

Basic 

retour au basic. 
Finder 

retour au finder. 



Carnct 

Nouvelle fiche 

Entree d'une nouvelle fiche dans 
le fichier, il est conseille de 
dormer le code postal. 
Fermer le carnet 
Le camet est ferme et il est 
impassible aux regards indiscrets 
d'observer les fiches. Pour 
rouvrir, cliquer la souris. 

Edition 

Nouveau repertoire 
Apres avoir demande voire 
autorisation le present fichier est 
detmit au profit dun nouveau 
(prudence). 

Click 

Lorsqu'une page est affichee, le 
fait de pointer une fiche et de 
cliquer permet de la detmire, de la 
modifier, dc composer lc 
numero... La fonction du click 
est selectionnee dans le menu 
Click: 
Afficher 

un click fait afficher la totalite 

d'une fiche ; 

Editer 

un click edite la fiche pointee en 
vue de mudiiications ; 
Detruire 

la fiche pomt€e est d^truite apr6s 
une autorisation ; 
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Composer Ic numero 

le numero de la fiche pointee est 
compose immcdiatcment avec les 
conventions imposees par les 
rubiiques "Region et Pays". 

Region 
Automatique 

I'ordinateuT utilise le code postal 
de la fiche ponr accorder les 
prefixes et compose le nuinero 
(France) ; 

Paris -> Province 

I'appel est en direction de la 
province ; 

Province->Parls L'appcl est 
impose vers Paris (16 1 ...). 

Pays 

Ce menu pennet de selectionner 
un pays pour un appel & 
I'etranger, les prefixes d'appels 
seront places automatiquement. 
S'il ne s'aglt pas de la France, la 
rubrique Region n'a pas d'action. 
T[ est possible de completer ou de 
modifier la liste. 



Cote Cane 
Cole or<3inateiir 




Connecteue male vue de face. 



S*'" Temps 



Temps 




Tl T2 



Cable <3-u teIep>hone 



Programme Repertoire t6l6phonique 



o 



o 



_y n 
■a o- 

I njioi 



DDDJI 
DDDD 

""I 



n 



IDflDD&Ol 



DDDDDDDD 



o 



(0 

o 

Q. 

r 

o 
o 
(J 
< 





o 




DTM 7 iSi::>5) , cu% (100) :np=5 

DATA Royaume Uiii,194 44,AlLe 
m&gne ftfA,J9{ 49,Etats Uni 
s,19* l,BeIgique, J3# 32, Su 
isss^l9t 41 

OPEtf "coml:110" FOR OUTPUT 
AS 1 : CLOSE 

sLaxt : 

OPHif "rsp2" FOR INPUT AS 1 
LEIf=l 1 3 : INPUTfl , nb$ :FOR 
i=Q TO 25:Lim INPUTil. 
11$ (1) ;HEXT: CLOSEil : OPEN 
"rspl" AS l:FIELDtl,15 A 
3 n.o$, 15 A3 pr?, IS AS tel 
$,4'Q AS B.dr$,10 AS cp$,25 
A3 vil^.-nbi-VAL (nb$} :cur% 
=0:ra=l S:pa%=l 

WINDOff 1, "agenda", (8,28) -(5 
05. 335) , 2 rWINDOW OUTPUT 
1 : TEXTFONT : TSXT8IZE 12 
:TEXTMODE liGOSUB curseu 
jr.-FOR i-1 TO SiMEitV i,0,0 
. " •' :NEXT:mm 1,0,1, "Fich 
Isr" rMENU 1,1,1, "Ba al a " :H 
ENU 1,2,1, "Finder": MENU 2 
,0,1, "Carnet"!MEliU 2,1,1, " 
Nouvelle fiche" 

MSiTU 2,2,1, "Fermor lo carnet 
":MEm 3, 0, 1, "Edition" :ME 
UU 3, 1 , 1 , "Nouveau rSpsrtoi 
re": MENU ^, U, 1, "Click" :ME 
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NU i, 1, 1, "Afficher" :MENU 
4,2,1, "Editer" tMENU 4, 3,1, 
"D^tJTulre "rWEWff 4, 4, 2, "Com 
pn.ic.r Ifi nvmSro" : M}?NU S,.0, 
1, "R&qlon" 

MEirU S, 7,2, "Automat iqu&" ; ME 
NU 5,2,1, "Pails -> Frovlnc 
&":MENU 5,3,1, "Province -> 
Palis" :mm! 6,0,1, "Pays": 
MENU 6,1,2, "Fra.nce" :RE3T0 
RE;FOR i^l TO np:SEAD a? 
,h$!MENU 6,i+l,l,A$:NEXTt 
" " :pd $=••" ; pd =1 ; r .- ME 
ttV ON:etso-3iON MENU GOS 
TIB testmsnu . GOSUB dsssln 

IF start =1 TBEN RETURN 

debut : 

MENU:p$-'INKEYS:p-ASC (p$+" 
") -40: IF p$-CBR$ (34) THEN 
P=3 

IF p$<>"" THEN a-IN3TR{"di 
6&' (§&!^",!>$} :IF a TEEN p 

IF j;>-0 AND p<l TSEN GOSU 

B diyit 
m^MOVSEiO) :IF TBEN sou 

dl ^DIALOG (0) : <i2=DlALOG (J } 
IF TBEN ON d2 GOTO pr 

e, sui 

IF dl=5 TBEN GOSUB d^s$in 

GOTO debut 

pre; 

psi-p3%~6 • GOSUB a a met; GOTO 
sui : 

pa%'^a% + 6:G0SVS c&rnez :GOTO 

dehxit: 
sourls: 

a=MOaSS (1 ) : h=MOUSE (2) tIF b 
>4S AND b^2$0 AND a<4 60 T 
BEN a.ff 

IF b>3 TBEN BEEP : GOTO deb 
ut 

l~cur%:cuL%=(a-10)/rs:IF J-c 
ur* OH [?ur*>=2S TEEN curi 
-1 : BEEP : GOTO debut 

PUT (l*ra+4, 0) , cuk (O) ,XOR:F 
cm i- 1-4 TO uur%*ra+4 

STEP 3*3GN(cur%-l) :PUT ( 
i, 0} , cu% (0) ,XOR:PUT (1,0) 
, cu% (0) ,XOR:NEXT:PUT (cur 
%*ra + 4, 0) , cuS (0) ,XOR:p»^-'l 
-.GOSUB csrnst :GOT0 debut 

aff: 

n-(b-64) /32+pa%:IF n>LEN(li 
$(cur%)) TBEN BEEP: GOTO 

debut 

IF ot so =0 TBEN souris2 
IF etso-2 TBEN detruire 
IT et^o-J TSEN composer 
i:in=ASC(MID$ (li^(cur%} ,n,l) ) 
:GOSUB entree: LINE (2, 48} - 

f4 2 6f; ,30, bf.-irOcarE s, 

5 :PmNT noS; •• " ; pr$ : LOCAT 
E 6, 2: PRINT adr$: LOCATE 



7,2:FRINT vil$;" ";cp$:LO 
GATE 9,25: PRINT "tsl : t 
si $: BUTTON CLOSE l:BUTTO 
N CLOSE 2: SUTTON 1,1, "ok 
•', (0,2a2)-(lQ0,305) 

ffBILE DIALOG (0}<'>1: WEND :B 
UTTON CLOSS 1: GOSUB earn 
et:(SOTO dehut. 

so\ix:±s2: 

f i «-ASC <MIB$ (li$ (r.ur%} ,n,l) 
) :nn~ fi%: GOSUB entree:mod 
i f~l : GOSUB nouvi n :GOTO de 
but 

detruire; 

nn=ASC (MID$ (11$ {i;uc%) ,n,l)) 
: GOSUB entree ;t $="1,3 fir.h 
e doit Stre detjroit 

e ?":<^SUB acaord:IF r£=" 
n" TBEN detruii-el 

GOSUB del 

d&trvirel : 

GOSUB carn&t:GCTO debut 
deasi/j.' 

LINE (3, 3) -(443,23) , 33,bf:LI 
NE(0, 0)-(440,20) ,30,hf:LI 
NE(0,20)-(440,20) ,33:LINE 
(440, 0}''(440,20} ,33;F0R I- 
1 TO 26: LOCATE 1,2.*2:FRI 
NT CBR$(96+i) :NEXT;FUT (c 
xiT%*ra+4r 0} , cu* (0) ,XOR:FO 
R 1-2 TQ 10 STEP 2: LINE ( 
I 0-1, 40-1) - (480-1,280-1) , 3 
0,bf 

LINE (10-1, 4 0-1} - (480-i, 280-i 
) ,33, b.' NEXT: LOCATE 3,3:P 
RINT "Norn : " ; LOCATE 3, J5; 
PRINT" TSl Sphcn e : " : LOCAT 
E 3,27:PRINT"AaressB 

LINK(2, 4S) - (4^9, 259) ,30,b£': 
LINE (300, 282) - (500, 305} , 30 
,bf: LOCATE 19, 40: PRINT h 
EN (11$ (cur%} ) "/",-nb%; "© D 
. Venot "; :LINE(115, 35) - (115 
, 265) , 33:LINE (205. 35} - (205 
,265),33:LINS(5, 48) - (465, 4 
7} ,33,bf:FOR i-0 TO 13:LI 
NE (5, 48+1 *16)- (4 65, 48+1*15 
) , 33: NEXT 

n=4:wa% =pa % : BUTTON "pre 
c^dMte", (0,282}-(100,30S) 
:IF pa%=l THEN BUTTON I, 


BUTTON 2,0, "suivante", (110, 

282) - (210, 305) 
carnetl : IF wa%>LEN (li$ (curi 

)} TBEN ma i- a : BUTTON 2, 0: 

RETURN 

IF n>=17 TBEN BUTTON 2, 1 :R 
ETURN 

nn-JLSC (MID$ (li $ (r.ur*) ,mai,l 
) ) :GOSUB entree 

LOCATE n, J : PRINT A$: LOCAT 
E n,15:PRINT" "+a$:LOCAT 
E n. 27: PRINT dS: LOCATE n 
II, 3:PRTNT h$ : LOCATE n-H 



,27:PRINT e$+" "+f$:n-n + 
2 :ma%—m3i+l rOOTO carnctl 
Farmer: 

LINE (2, 4S}-(4 69, 2 6S) . 30, h£ : 
FOR 1^20 TO 460 STEP 20: 
LINE a, 50)-(l,2eO) ,33:NEX 
T:FOR 1^60 TO 2 60 STEP 20 
:Lim(i n,i) -(460.1) :NEXTt 
LINE (30, 96) - (200,144) ,30, b 
f: LOCATE 8 , 1 : PRTNT"Rppe 
i:toll&" :HBILE MOUSE (0) <>1 
:flEND:GOTO ca met 

curseur; 

LINE(0, 0)- (20,18) ,33, b:Lim 
(1,1)- (19,17) ,33, b:LINE(20 
,0)-{10,3) ,33,b:LINE(10,18 
)-(10,15),33,b:GET(0, 0)-<2 
0,18) , CU% (0) :RETURN 

tsstmenu : 

lal^MENU(O) :m2=MENU(l} :IF isl 
-J TBEN ON m2 GOTO fln,fl 
nder 

IF ml -2 TBEN ON m2 GOTO no 
uVf f&riaer i 

IF ml -3 TBEN rep ^ ~\ 

IF TBEN die C ' — , 

IF ml =5 TBEN regi oji ^^""^^^ 

IF ml=6 TBEN pays 

RETURN 

region: 

MENU 5, re, 1 :MENU 5,m2,2:re- 

IF m2-l TBEN re$="" 
IF m2^2 TEEN re?="16 " 
IF m2-3 TBEN 3:s$-"lC 1 " 
RETURN 

psys: 

MENU S,pa, l:pa^w2:MENU €,pa 
,2!lFpa-l TBEN pa$-"":RE 
TURN 

RESTOREiFOR i-1 TO pa 1:EE 
AD pay s $, pa $: NEXT: RETURN 

t$-"Cr4ation d'un repertoire 
et dastruotion du rSsldan 

t. ": GOSUB accord: IF rS-"n 

" TBEN carnot 
CLOSEfl :OPEN "rep2" FOR OU 

TPUT A3 1:PRINT{1, "Q":nb 

*-^0:FOR i^O TO 25:li?(i) = 
iPRINTtl, 11$ (i) iNEXTiC 

LOSEfl :KILL "repl " : starts 

1 zGOTO start 
fin: 

CLOSE # 1 ; GOSUB s^uve r MENU R 
ESET:END 

sauve; 

OPEN "rep2" FOR OUTPUT AS 
tl !nbS-STR$ (nb%) :PRINTtl, 
nb$:FOR 1-0 TO 25:PRINTfl 
,li$(i) : NEXT: CLOSE il :RET 
URN 

nouv: 

modi f=0 :a$-"" :b$^"":c$-"" : d$ 

= " ":f$=" " 

nouvln ; 
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Lim (2, 48) - (469, 269) . 30. bf: 
LOCATE 7, 2 ;PRINT"Prenoin 
;":EDIT FIELD 2,b?, (80,96 
} -(2B0r 112} : LOCATE 9,2:PR 
INT"TelSphone : " :EDIT FIE 
LD 3,c$, (110,128)- (310,144 
) :LOCATS 11,2: FRIST "Ad re 
sse :".-EDJT FIELD 4,d$, (8 
0,160)-(440,176) :LOCATE 1 
3,2:PRTNT"Vill^ ■ 

EDIT FIELD 5, e^, (70, 1 92} - (2 
70,208} : LOCATE 15, 2 :FRItt 
T"Code postal :":SDIT TIE 
ID 6,f$, (120,224)- (320,240 
) r LOCATE 5, 2 iFRIlIT"Najn : 
"rEDIT FIELD l,a$, (60, 64) 
-{2 60, 80) :BVTTON 1,1, "Ok" 
, (0,282) - (50, 305) rBUTTON 
2,1, "Fin", (60,232) - (130, 30 
5) 

JlOLlVi .- 

IF DIALOG (0) <>1 TEEN nouvl 

bou=DIALOe(l) 

IF bou-1 TBEK ok 

IF i>ou-2 TEEN GOSVS nouvfl 

n:GOTO carnet 
GOTO nouvl 

a$-EDIT$ (1 ) :b$~EDIT$ (2) :c$^ 
EDIT$(3} :d$^EDIT$(4) :e$- 
EDIT$ (5) :f$-EDZT$ (6) . OOS 
DB Jiouvfin;fJ*=fi%.-jiM=jijb% 
+l:fi'i-nhi 

jiouvdel : 

(a$,l)) +RIGHT$ (a$, LEN (a $} 
-1) :n-ASC(a$) 65:IF £1%~1 
3 TEEN fii^O 
IF TEEN l±$(n)-CB 

R$(fi%} :nn=fi%:aCTO sort! 
e 

FOR i^l TO lEN(li$ (n) ) :nn=A 

SC (HID$ (11$ (n),i,l)) :IF n 

rt=U TEEN nn=13 
CETH, nm IF OCASE$ (no $ tpj:$ 

}>UCASE$(a$+b$) TMEN plac 

e 

NEXT 

li$ (A) =li$ (n) +CER$ (fl%) .-jin-f 
iitGQTO sortie 

Jin-f i i:IF i =J TSEN li$(n) =C 
BR$ (fi%} ■hll$ (n) -.GOTO sort 
ie 

li$(n)~LEFT$(li${n),± X) ICE 

R${fi%)-hMID$ (li$(n} ,i) 
sortie.- 

IF nn^O TSEN nn=13 

LSET no$=a$ :LSET pr$-b$:LS 
ET tel^=c$:LSET adr$=dS:L 
SET vil$-o$:LSET cp$-f$:P 
UTfl,nn:IF niocfi±"=l THEN n 
ll=f2%:GOSUB del. -GOTO earji 
et 

IF mod±f''2 TEEN RETURN 
IF modif-0 TEEN nouv 



GOTO carnet 
nouvfin : 

FOR i =I TO 6 1 EDIT FIELD CL 
OSE i : NEXT : BUTTON CLOSE 
1: BUTTON CLOSE 2 :SETUR 

N 

entree; 

IF nn~0 TBEN nn-U 

GETtl , nn :a$=no$ :b$=pT$ : c?=te 

l$:d$^adr$:c$ =iri l$!f$ "cp $ ; 

RETURN 
die: 

MENU 4, 1,1 -.MENU 4,2,1 :MENU 
4, 3, IzMZNU 4,4,1 :IF m2^2 
TEEN eCso=0:MENa 4,2,2 

IF a2=l TEEN e1:so=I .-MENU 4, 
1.2 

IF m2-3 TSEN etso=2 : AEJftf 4, 

IF m2-4 THEN f'.t.^n=3 :lilENU 4, 

4,2 
RETURN 

/Xnder; 

CLOSEt I : GOSUB .sa uve : SYSTEM 

second; 

LINE (2, 48) - (469,269) , 30, bf: 
LOCATE 5,2: PRINT t$:BUTT 
ON 1,1, "Qui", (100,100)-(15 
0,120) .-sorrow 2,1, "Non", ( 
170,100)- (220,120) :miLE 
DIALOS (0) <>1 : WEND : BUTTON 
CLOSE 1: BUTTON CLOSE 2: 
IF DIALOS (1 ) -1 TSEN r?-" 
o":BETUBll 

x-$-"n" : RETURN 

DEL: 

IF nn=0 TBEN nn-13 

fi*=nn :n-INSTR (li$ (cur%) , CE 

R$ (nn) ) : p-cuL-% :GOSJJB coup 

er:IF nn^nb% TBEN nb%=nb% 

' 1 : RETURN 
FOR p-0 TO 25:n='INSTR(li$ (p 

) , CER$ (nbi) ) iIF nOO TEEN 
GOSUB couperrGOTO del2 
NEXT p ; BEEP : BEEP : RE T URN 
del2: 

nn-r>b% ; GOSUB en^rse :nhi-nb% 

-1 : modi f~2: GOTO nouvdel 
couper: 

IF LEN (li$ (p) } =1 TEEN li$ (p 

.-RETURN 
IF il-I TBEN 11$ (p)=mD$ (li? 

(p),2) ;RSTURIt 
IF n^LEN (li $ (p) ) TEEN li$(c 
ur%)=LEFT$(li$(p) ,LEN(li$ 
(P) ) -1) : RETURN 
11$ (p) =ZEFT$ (11$ (p) ,n-l) +MI 

D$(li$ (p) ,n+l) :IiETUEN 
composer : 

LINE (2, '48) - (469, 269) , 30, bf:n 
n=ASC (MID$ (11$ (car%) ,n,l) 
): GOSUB entree: LOCATE 14 
,4:PRINT ";B$:LOCAT 
S lb,4:PRINT d$:p$^c^:a$^ 
" "+LEFT$ (f$, 2) :B$-RE$:LO 
CATE 16, 4:PRINT e$;" 



":f$:IF paol TBEN b$="" 
IF pa -I AND re-I TEEN IF I 

NSTR(" 91 92 93 95 77 78 9 

4 75 ",s$)<>0 TBEN b$-"" 
ELSE b$=^"16 " 
LOCATE 5, 20: IF pa-1 TBEN P 

RINT"En f ranee" ELSE PRI 

NT pays $: GOTO compl 
LOCATE 5, 2: IF re-I TBEN PR 

INT"AutoiaatiqriQ, " 
LOCATE (>, /:IF b$="16 " THE 

N PRINT"Vers la provlnco. 

IF b$="16 1 " TBEN PRINT"V 
ers Ja region Farislenne . " 

IF b$-"" TSEN PRINT "sone 1 
ncSrieure, region Farlsien 
ns. " 

compl : p $ '•pa $t" "+h$+" "+p$ 
; LOCA TE 10,3: PRINT »Compo 
ssr le numSro : " ; p$ :LOCAT 
E 12, 12:PRINT"C M P S 
T T I O N": GOSUB /iuinero.- 
IF p$<>"" TSEN LOCATE 13 
,10:PRINT"E N L I G N 
E . . . " ELSE LOCATE 13, 
10:PRINT"I N T E R R U P 
T I N":GOTO coiapl 

FOR 1^1 TO 5: BEEP: NEXT: FOR 
1- 1 TO 5D00:NEXT 

GOSUB carnet T GOTO debut 

FOR X=l TO LEN (p$ ) : p^ASC (M 
ID$(p$,x, 1) )-43.IF p<0 OR 
p>9 TEEN impnu 
GOSUB digit 

IF MOUSE (0) =2 OR INXEY$~" 

" TBEN p^=" ": RETURN 
^uml ;NEXT:RETnim 

Impnu: 

IF p=-13 TBEN FOR 1=1 TO 1 

0000! :NEXT 
GOTO numl 
DIGIT: 

IF p=0 TBEN p=10 

a $ '=STRING$ (p,248) ; OPEN "CO 
Ml:110,n,8 ,1 " FOR OXJTPU 
T AS 2:PRINTt2,Af,- : CLOSE 
t2:F0R i=J TO 1 000:NEXT;R 
STURN 

n 

Programme c^L- 
Init'mUse' 

ilEM Programme er^ateur de fi 
chicrs "r&peirtoirea" , doit 
§tre utilise avant la pre 
ml^rs mlse en service du p 
rogratme 

OPEN '•rGp2" FOR OUTPUT AS 
l:PRINTfl, "0":FOR i=0 TO 
25 ; PRINTJ^l , " " : NEXT: CLOSE 
:ESD 
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Macintosh Et Le 

RRESSE-PAPIERS (FABLE) 



Le Macintosh offre a ses 
utilisateuTS la rcmarquablc 
possibilite de faire passer k peu 
prcs tout entre applications ct/ou 
accessoires de bureau, et en 
particulicr du texte. Pom' cda, les 
programmeiirs qui 'developpent' 
en Basic ou en Pascal (ou avec un 
autre langage evolue) disposent 
de routines qu'il suffit d'appeler 
aux moments voulus, moments 
qui, nous le verrons plus loin, 
devront 6tre choisis avec soio si 
Ton veut respecter la philosophie 
Macintosh et, suitout, le confort 
de rutilisateur. Nous ne nous 
intdresserons ici qu'aux donnees 
de type "TEXT' bien qu'il soit 
bien entendu possible de passer 
des iiifonnations graphiques 
"PICT" (picture) par ce biais, 
mais, de toute fagon et pour ce 
genre de traitement, la principale 
difference entre les deux types est 
que c'cst cxactcmcnt la meme 
chose. 



TEScrap et 
DeskScrap 

La plupart dcs applications ct 
accessoires de bureau utilisent un 
"presse-papiers" gere exclusi- 
vement et automatiquement par le 
systeme d'edition de texte 
(TextEdit). Celui-ci, baptise 
TEScrap se charge de la 
manipulation des textes coupes, 
copies ou colles ^ I'aide des 
routines TECut, TECopy et 
TEPaste. Done, \ Tinterieur 
d'une application ou d'un 
accessoire, le programmeur doit 
seulement appeler les trois 
routines en question, en fonction 
de I'article selectionne par 
I'utilisateur dans le menu 
"Edition" (ou de leur 'equivalent 
clavier' : Commande-X, C ou V) 
sans se soucier de la manipulation 
du texte traite. Mais ceci ne vaut 
qu'il rinterieur d'une meme 
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application ou d'un mSme 
accessoire. D6s lore qu'il s'agit 
de passer du texte hors du 
programme en cours, il faut avoir 
recours a un second 
presse-papiers ; celui du bureau, 
baptise DeskScrap. Ce dernier 
est done employe comme tampon 
(cn mcmoiic, ou sur disque si sa 
taille ne permet pas un maintien 
en memoire) lursque rutilisateur 
a, par exemple, copie I'heure e£ la 
date affichees par I'accessoire 
"Horloge" pour le coller dans un 
document MacDraw, ou encore 
coupcr un paragraphc dc texte 
depuis MacWrite pour le coller 
dans le "Calcpin" ou dans un 
document MacPaint. 

Des routines... 

...dites de haut niveau pour le 
Basic, Pascal ct les autrcs 
langages evoliies, mais pas pour 
I'asscmblciir, d'ou la presence de 
cet article. 

En Basic Microsoft, DeskScrap 
est considere comme etant un 
fichier sequentiel, au m€me titre 
que le clavier, les cannecteurs 
'scric' et I'ccran, Pour ouvrir ce 
fichier en entree : 

OPEN "CLIP: TEXT" FOR 
OUTPUT AS 1 

en sortie ; 

OPEN "CLIP: TEXT" FOR 
INPUT AS 1 

Les Pascaliens, de leur cote, 
disposent des routines 
TEFromScrap - pour faire 
passer du texte depuis le 
presse-papiers DeskScrap vers le 
presse-papiers TEScrap - et 
TEToScrap - pour faire 
rinverse, 

Rien de tel done pour 
Fassembleur et, si 'Inside 
Macintosh' preconise I'utilisation 
des variables globalcs 



TEScrpHandle el TESvrpLengih 
ainsi que des fonctions GetScrap 
et PutScrap, il n'en reste pas 
moins que I'ecriture de routines 
equivalentes I TEFromScrap et 
TEToScrap, bien que 
relativement simple, n'est pas 
forc6ment cvidente, C'est 
pourquoi nous proposons deux 
routines en assembleurs qui 
pourront etre tres facilement 
implantees dans vos programmes 
ct accessoires de bureau. 

Routine 
TEFromScrap 

Cette routine se charge du 
passage du texte depuis 
DeskScrap vers TEScrap. Elle 
sera appelee depuis votre 
application ou acccssoirc par un 

BSR TEFromScrap 

Les regisUes dont le conteuu est 
susceptibles d'etre modifie sont 
preserves et restitues en fin 
d'execution. Au retour, le bit Z 
du registre d'etat est positionne S 
1 s'il n'y avait pas dc tcxtc a 
transfer^, ou si le texte n 'avait pn 
6trc transferer du fait d'une erreur 
au niveau du systeme 
d'cxploitation (OSErr), En tas 
d'erreur de ce type, votre 
programme peut trouver le code 
d'erreur en -26(SP) £l condition, 
bien sur, de le faire avant toute 
nouvelle operation pouvant 
engendrer une modification du 
conienu du regislic A7 (poinieui 
de pile). 

Voici un cxcmplc dc segment dc 
code extrait d'un programme 
faisant appel & la routine 
TEFromScrap ; 



BSR TEFromScrap 
BEQ.S Erreur 



Suite 



Erreur TST 



-26(SP) 
auite 
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MOVE -26 (SP) ,ArirEr 



Routine 
TEToScrap 

TEToScrap, vous Taurcz devine, 
effectue Tinverse de la tache 
assuiee par TEFroraScrap, soit le 
passage du presse-papiers 
TEScrap vers le presse-papiers 
DeskScrap. 

L'appel de la rotiHne se fait par : 

BSR TEToScrap 

Les registres sont preserves et 
leur contenu. restitue, Au retour, 
contrairement a la routine 
TEFromSrap, le bit Z du registie 
d'etat est positionne a 1 s'il n'y a 
pas eu de problfeme. Sinon, le bit 
Z est a et votre application et/ou 
accessoire peut trouver, tout 
comme pour la routine 
precedente, un eventuel code 
d'erreur OSHrr dans -26(SP) 

Exemple de segment de code 
pour la routiQe TEToScrap : 

BSR TEFromScrap 
BNE . 3 Erreur 
Snite ... 



Erreur MOVE -26 (SP) ,AdrEr 



Quand utiliser les 
routines ? 

La programmation du Macintosh 
impose aux 'developpeurs' un 
certain nombre de r&gles precises 
decrites dans 'Inside Macintosh' 
au chapitre 'Macintosh User 
Interface Guidelines'. Ces 
conventions, lorsqu'elles sont 
respectees, autorisent la mise au 
point de programmes que 
I'utilisateur final pourra utilizer de 
fa^on quasi-instinctive. Par 
exemple, en tant qu'utilisaieurs, 
nous trouvons qu'il n'y a rien de 
plus desagreable que d'utilLser un 
programme qui n'eraploie pas les 
'equivalents claviers' Com- 
mande-X, C et V pour 'Couper', 



'Copier' et 'Coller'. Nous avons 
done tout interet a respecter les 
conventions Macintosh, mime si 
elles nous paraissent lourdes, 
voire meme contraignantes. 

Demarrage de 
Tapplication 

II serait tentant de transferer 
imm6diatement le contenu de 
DeskScrap dans TEScrap mais, si 
nous voulons bien faire les 
choses, c'est un peu plus 
complique. [1 convient tout 
d'abord de s'assurer de la 
presence de texte dans 
DeskScrap. Poui' cela, on peut 
utiliser la routine _GetScrap en 
passant dans ia pile k la place 
da Handle : 

SUBQ #4,3P 

CT.R.T, -(SP) 

MOVE.L # 'TEXT' , - (SP) 

PEA scratchS 

_C5etScrap 

MOVE.L {SP}+,DO 



En passant une valeur nuUe (NIL 
pour les Pascalicns) dans la pile 
[CLR -(SP)} a la place d'un 
Handle sur le prcssc-papier 
TEScrap, la routine _GetScrap 
retoumc : 

1 -102 si il n'y a pas de donnee 
de type 'TEXT' (no tons bien 
qu'il ne s'agit pas \i d'un 
code d'erreur : DeskScrap 
peut tres bien contenir k ce 
niomcnl des donnccs dc type 
'PICT') ; 

2 une autre valeur negative 
correspondant a une erreur de 
type OSErr en cas de 
pTobl&me au niveau du 
systfeme d'cxploilalion , 

3 la longueur du presse-papiers 
si la valeur est positive. 



Dans les deux premiers cas, il 
convient de rendre invalide 
I'article 'Coller' du menu 
'fidition' pour que rutilisatem ne 
puisse pas croire qu'il peut coller 
quelque chose alors qu'il n'y a 
rien dans TEScrap, On pouirait 
done nhtenir h ce moment un 
menu 'Edition' coaiine ceM-ci : 






Couper 




.,.11=) Copier 








Effacer 



En fait, si Ton veut vraiment bien 
faire les choses, les menus 
'Couper' et 'Copier' ne dcvraient 
toe vaUdes que s'il y a quelque 
chose pret il etre copier ou couper 
ou, en d'autres termes : si 
quelque chose est selectionne. 
Ceci est rendu possible par la 
presence des champs selStan 
(debut de la zone selectionnee) et 
selEnd (fin de la zone 
selectionnee) situes dans 
I'enregistrement du texte 
aERec), 

MOVEA.L tsHandle (A5) ,A1 
MOVEA.L (A4),A'3 
CMT selStart (A4) , 

selEnd(A4) 
BNE TexteSelectionne 



En ce qui conceme le second cas, 
il est recommandd d'afficher une 
fenStre de type 'alerte' afin 
d'informer I'utilisateur en lui 
indiquant, cn fonction du code 
OSErr retoume, quel est le 
problfeme rencontrd. 



Pour le troLsieme cas, il convient 
de validcr Tarticle 'Coller' du 
menu 'Edition', ce qui pourrait 
donner ixn menu comme celui-ci 
(il n'est pas indispensable de faire 
des menus aussi ddlirants !) : 
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Edition 



^ Couper 3€H 
^i-lp Copier i§C 




Collar 



Effacer 



inutile. De plus, il convient de 
garder intact le contenu de 
DeskScrap pour le cas ou 11 n'y 
aurait aucun 'Couper' ou 'Collcr' 
entre le demarrage de 
I'applicalion et I'ouverture d'un 
accessoire de bureau, ou encore 
le demarrage de 1 'application et sa 
fcrmetuxe. 

En resume : apres le demarrage 
d'unc application, il faut appclcr 
TEFromScrap seulement lors du 
premier 'CoUer', ct seulement si 
il n'y a pas eu de 'Couper' ou 
'Colier' auparavant (chinois). 



Ouverture ou selection 
d'un accessoire 



Edition ^^^^^1 


flnnuler 




J/ Couper 




■.•bii) Cnnler 


ICC 


Colier 


3gU 


Effacer 



Eteux cas sont ici envisageables : 

1 11 n'y a pas eu de 'Couper' 
ou 'Copier' depuis le 
demarrage de I'application ou 
le dernier retour depuis uti 
accessoire de bureau ; 

2 II y a eu au moins un 
'Couper' ou 'Copier' depuis 
Je demarrage de I'application 
ou le deniier retour depuis un 
accessoire de bureau. 



II n'est pas pour autant 
indispensable d'appeler la routine 
TEFromScrap immddiatement. 
En effet, si I'utilisateur coupe ou 
copie du texte dans Tapplication 
avaiU le premier 'Colier', le 
transfert d'informations aura ete 



II faut avant tout faire une 
operation qui n'a pas de rapport 
direct avec le contenu des 
presse-papiers : la validation des 
menu 'Annuler', 'Couper', 
'Copier', 'CoUer' et 'Effacer' 
afin d'autoriscr leur utilisation 
eventuelle par 1' accessoire : 



Routine TEFromScrap coeskscrap' vers 'TEtun 



Trap et adresses utiiis^es : 



. Trap 
scratchS 
TeScrpLsngth 
teScrpHandle 

TEFromScrap 

MOVEM.L 
SUBQ 



_Get$cr^p 

EOU 

EQU 



$A9FD 

$9FA 

$ABQ 

$m4 



Dans un fishier "ressourog" 3 

^K^f!CTBBtf^^!J^Wi[flRlMy . nous 

irouverions ici ^es resources de 
type WIND, MENU, DITL, STR, 
DLOCi, etc. 



I 



Clipboard File 



A0-A1/D0'D2,~(SP) 
§4,SP 



MOVE.L tsScrpHandle, - (SP) 



MOVE . L 
PEA 
_Get Scrap 



f'TEXT'f-(5P) 
acratchS 



mVE.L 
BPL.S 

MOVEQ 
FinFrom 

MOVE 

MOVEM.L 
RTS 



(SP) +, DO 
FinFrom 



DO, TeScrpLength 
(SP) +,AO-Al /no-B7. 



; Sauvegarde les registres au sommet de la pile. 
; Reserve 4 octets au sommet de la pile pour la 
; valeur retournee par la xauLlne _GeLScj:ap. 
f Empile le 'Handle' du presse-papier des 
; routines d' Edition de texte (TEdit) . 
; Empile le type de donnee requise (texte) . 
; Empile I'adrcssG du tampon dc 8 octets. 
_GetScrap retourne ime valeur : 
positive = longueur du presse-papier ; 
-102 = pa3 de donn^ea du type demand^ ; 
aiitre negatTtfe = OSKrr (erreiir syst . exploitation). 
Si OK, on conserve la valeur placee dans DO. 
Sinon on indique une longueur nulle, 

; La variable glohale TeScrpLength, qui indique 
la longueur du presse-papier des routines 
d' Edition, est mise ^ jour, 
Valeurs initiales dans les registres. 
Retour au programme appelant avec le bit z a 1 
si il n'y a rien dans le presse-papier. 
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Quel que soit le cas coTicemg, il 
faul stuckcr a unc adresse 
quelconque (mais connue !), la 
valeur courante de scrapCount. 
Ceci nous permettra de savoir 
ulterieuremeTit si le contenu de 
DeskScrap a etc modifie par 
raccessoire. Pour obtenir la 
valeur de ce cornpteur, on peut 
soit Hre le contenu de la variable 
globale scrapCount ($968) : 

MOVE scrapCount, Coinpt{A5) 

soit lire la zone scrapCount de 
I'enregistrement ScrapStuff dont 
I'adresse de base est retouraee 



par la routine _IiifoScrap ; 

SUBQ #4,SP 

Inf o5crap 
MDVEA.L {SP)+,AO 

MOVF. scrapCount (AOS , Compt (AS) 
; 5crapCount=8 

Pour le premier cas (1), on se 
contentera de ne rien faire (mis a 
part Ic stocfcage du contenu du 
cornpteur). 



Pour le cas (2), il faudra faire 
appel a k rouLiiie TEToScrap afiii 
de passer le texte copier ou 
couper k raccessoire. 



Passage d'un 
accessoire a 
rapplication 



Lc problcrac (si tant est que 
problem© il y a) est le meme que 
lots du demarrage de 
I'application. Nous disposons 
toutefois d'un raoyen simple pour 
savoir si lc contenu dc DeskScrap 
a ete modifie depuis que I'oti a 
quitt6 I'application : nous avons, 
lors de I'ouverture ou de la 
selection de I'accessoire, stockd 



Routine TEToScrap CTBdW vers 'OeskScrap') 



Trap et adresses utilts^f^s 



.Trap 
.Trap 
.Trap 
.Trap 

. Trap 

T&RarpLBngth 
teScrpHandle 



GetHandleSize $A025 



_HLock 

_HUnLock 

_PutScrcip 

_ZcroScr9p 

EQU 

EQU 



$A029 

$A02A 

$A9FE 

$A9FC 

$ABQ 

$AB4 



Dans un fichier "ressoitrc*" 
B 



une veritable applicatiofi 



de-stine 



nous 

^f-rsuverions ici 1m rwsources de 
type VINDj MENU, DITL, SIR, T 
DLOG.etc. ^ 



Clipboard File 



TEToSnrap 

MOVEM.L A0-A1/DQ-D2,~ (SP) 
SUBQ f4, SP 

ZeroScrap 

ADDQ i4, SP 

MOVE . L teScrpHandiefAO 

SUBQ i4^SP 

_CetHandleSize 

MOVE.L DO,-(SP} 
_HLock 

MOVS.L i'TEXT' ,-(SP) 
MOVE.L (AO}f-(SP) 
_PutScrap 

MOVE . L teScrpHandlB, AO 
_}lUnLock 

MOVE.L (SP)+fDO 

MOVEM.L (SP)+,A0-A1/D0-D2 
RTS 



Sauvegarde les registres au soitimet de la pile 
Reserve 4 octetD au aommet dc la pile pour la 
valeur retournee par la routine _ZeroScrap. 
Initialise le presse-papier du bureau et 
incremente ScrapCount de 1 (voir texte) . 
On n 'utilise pas la valenr retournee. 
Place le ''Handle' du presse-papier des 
routines d'6dition dc tcKtc dans AO. 
Reserve 4 octets au sommet de la pile pour la 
valeur retournee par la routine _Put5crap. 
Retourne la longueur du preoae-papier des 
routine d'^dition de texte dans DO- 
J;;mpile la longueur. 

Bmpeche le deplaceinent du prease-papier . 
F.mpile le type de donnee a passer. 
Empile le pointeur sur le texte k passer. 
Trans fert du texte. 

Place le ^Handle' du presse-papier des 
routines d' edit ion de texte dans AO, et 
_HUnLock autorise les mouvements de m^jnoire. 
R^sultat de _PutScrap dans DO pour 
positionner le bit Z : ^ 1 si OK. 
Valeuxs initiales dans les registres. 
Retour au programme appelant avec le bit Z a 
si 1' operation s'est bien deroulee. 



En cas d'erreur au niveau du systeme d'exploitation (OSErr) et pour les deux 
routines, le code de I'erreur se trouve, lorsque I'on est revenu au programme 
appelant, en -2G(SP) sur deux octets. 
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la valeur courante de scrapCount. 
Or, sans trop entrer dans les 
details, on peut dire que ce 
compteur est incremcntc dc 1 ^ 
chaque fois que Ton met qiielqiie 
chose dans DeskScrap. Done, si 
le contenu actuel de scrapCount 
est different de son contenu avaut 
appel de I'accessoire, le contenu 
de DeskScrap a ete modifi^, ce 
qui doit bien sur etre pris en 
compte par notre application. 

SUBO #4,SP 
_InfpSc:fap 
MOVEA.L [SP)+,M 

CMP scrapCount (JiO ), GoiJipt tA5 ) 

BME Modi f 
5RA PasModif 



Fermeturc dc 
I'application 

Le traitement 




doit 6tre 



iogiquement le meme que dans le 
cas "Ouverture ou selection d'un 
accessoire", bien qu'U ne soit pas 
neccssaire de se preoccuper de 
I'etat du menu 'Edition' ni du 
stockagc dc k valeur courante de 
scrapCount qui, de toute maniere, 
ne sera pas reutilisee. 

En cas d'ecriture 
d'un accessoire 
de bureau 

Dans ce qui a precede, nous 
avons pris pour example le cas 
d'une application, mais tout ceci 
est reversible et s'applique aussi 
aux accessoires de bureau : 

• le paragraphe "demarrage de 
I'application" correspond a 



I'ouvenure de I'accessoire, 
provoque depuis I'application 
par la routine Open Desk Acc 
(routine Open du driver) ; 

• le passage de I'application ^ 
I'accessoire correspond ici a un 
cvenement activateEvt avec le 
bit activeFlag h. 1 ; 

• le passage de I'accessoire S 
Tapplication correspond a un 
evcnement acUvaicEvt avcc le 
bit acdv^Flag i ; 

• la fermeture de I'application 
correspond a la fenneture de 
raccessoire, provoquee depuis 
I'application par la routine 

CloseDeskAcc (routine Close 
du driver). 



DiSQUETTE Macintosh 24 

Les abonn^s aux disquettes "Pom's Macintosh" sont vraiment des veinards : en effet, la disquette 24 
comporte un utilitaire indispensable k tous ceux qui programment - ou meme utilisent - le Macintosh. II 
s'agit de REdit. Ce logiciel est un editeur de ressources evolue qui autorise I'editiGn directe des iconcs, 
menus, fenetres, boites a dialogue, chames de caracteres, etc. De plus, c'est aussi un decompilateur 
capable de faire Tinverse de ce que fait RMaker ; vous lui indiquez une ressource, 11 vous en fait un 
source au format RMaker. Pour 80,00 F (66,66 F pour les abonncs)... d'autant plus que comme 
d'habitude, I'acquisition de la disquette d'accompagnement vous evite la saisie des programmes et 
sources listds dans ce numdro ! 

ATFENTION : CE LOGICIEL, ENTRE DES MAINS INEXPERTES, PEUT ETRE EXTR£MEMENT 
"CASSANT" ; IL EST REC0MMAND6 DE TRAVAILLER UNIQUEMENT SUR DES COPffiS. 



< Fkhler CarngI Edition Click Begioji Pays t file Edit 




Francophonisme torride ? 

FontlDA Mover version frangaise a perdu, les lettres bjkmoqvwyz ! Les auteurs anglopkones avaieni en effei irouv^, 

& iiirp. A'i'xemple, une phrase courte represemam fort bien I'alphnhet : 'The quick brown fax jumps over the laiy 
do^' , phrase maiencontreusement traduite par : 'Le renard agik a saute au-dessus du chien patesseux. autrement 
ditilne s'agit rd d'une traduction litterale, ni d'une representation complete de I'alphahet. .. Qui nous donnera un ban 
p.quivalp.nt frfrnqai!; dp. rp.t pxpmpip r.laxnquc. rhp.i Ipx typngTOphp.x ? 
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Finder (histoire ttuste) 



MARIANNE SUTZ 



Ce n'est un secret pour personne, 
le Macintosh, quel que soit le 
langage de programmation 
employe, utilise un grand nombre 
dc 'ressourccs' pour la definition 
des menus, fenetres, messages 
d'erreur, icones, etc. En fait, 
presque tout ce qui apparait sur 
I'ecran du Mac est stocke dans 
des fichiers 'ressource'. Ceci 
facilite grandement le travail des 
program meuxs (qui peuvent, par 
eTcemple, modifier la tatlle d'une 
fenStre sans toucher au 
programme lui-mSme) et des 
traducteurs (qui utilisent des 
utilitaires du type "REdit" pour 
'localise!* les messages, formats 
d'affichage des nombres, formats 
d'aftichage des dates et heures. . .) 

Dans les ressources de chaque 
appUcation, nous trouvons unc 
constante : la partie destinee a 
informer le "Finder". Nous y 
trouvons Ic nom dc rapplication, 
le "createur" et le "type" (nous 
avous dej^ eu I'occasiou d'en 
parler dans de precedents 
numeros), la signature dc 
I'appLication, et une ressource de 
type "Bundle". 

Cette demiere, qui contieni la Hste 
des identificateurs d'icQnes et la 
liste des r^f^rences des fichiers, 
semble justemem poser problfeme 
^ nombre de nos lecteurs. II est 
en effet certain que la mise en 
ordre des types ICN# et FREF 
n'est pas complStement 
instinctive. C'est pourquoi nous 
vous proposons une ressource de 
base, autour de laquelle vous 
pourrez construire la ressource de 
votre application. Que cette 
demifere soit ecrite en assembleur, 
en Pascal. . . n'a pas d'iraportance 
puisque ces langages sont livres 
avec le compilateor de ressource 
"RMaker", auquel est destine le 
fichier liste ci-contre. 




ID = 128 
Type flPPL 



ID = 129 
Tgpe TEHT 



ID = 130 
Type TKT@ 



Fichier Demo.R 

Exemple de 'ressource' pour une application 



Demo 

APPLPoms 



; fUlom de 1 ' application 
; ; Createur et type 



Type Poms = STR -Signature de 1 ' application 

; Identif icateur=0 par convention 

* La chains suivante contient la nom de 1 ' application, 

* le nuraero de version, et la date de creation. 
Demo - V 2. d Is llgne - 22:53:14 - 10.05.06 

* Dans un fichier "resaource" desLine a ujie veritable 

* application, nous trouverions ici les ressources de 

* type WIHD, MENU, DITL, STR, DLOG, etc. 



* Ressource de type "Bundle". Elle contient les 

* informations pour le Findei:. 
Type BNDL 

r 128 (32) Identif icateur de la ressource 

* (32) est I'attribut de la ressource 

* ce qui correspond a "purgeable" 

Poifis ; /Signature et idontif icateur 

* Identif icateurs des icSnes repr6sentant 1 "application 

* et les fichiers qu'elle pourrait creer. 
rCNi 

128 1 129 2 130 

* REF4rence des Fichiers 
FREF 

12B 1 129 2 130 



Type FKEF 


; ; Pour 


1' icons li6e a 1 ' applicat ion ; 


, 128 (32) 


; ; Type 


de fichier = APPL 


APPL 


;;ID 


pour la liste des icdnes 


Type FREF 


; ,-Pour 


l'ic6ne du ler type de fichier ; 


, 129 (32) 


; ,-Type 


de fichier = TEXT 


TEXT 1 


;;ID 1 


pour la liste des icones 


Type FREF 


; ;Pour 


l'ic6ne du Z^me type de fichier : 


, 130 (32) 


,-Type 


de fichier = TXTS 


TXT8 2 


;;ID 2 


pour la liste des icdnes 


* Definition 


des icones 


de 1 ' application et dco deux 



* types de fichiers generes par cette derniere 
TYPS ICN^ = GHKL ; ; Type liste d' icones 
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* Ic6ne de JL ' application 

, 12S (32) ; ! Idcnti f ± 

Z ;;NonLbre=2 
00000000 70F3DD8 6 45099248 
40030002 41F37E0C 07FFEF80 
1FFB0490 1DB68498 3FDFF004 
3ACB0004 7DFm002 7FDA0042 
7BFCOO0A 7BEC0002 7FBC0026 
7F640004 3FFD101C 3FB38004 
1FB6C028 1FF7D810 UFFCC12U 
03FB73Q0 O0FF7E00 OOIFFOOO 
* 

* Masque 

FDFFFFCF FDFFFFFF FFFFFFFE FFFFFFFF 
FFFFFFFF E7FFFF9F EFFFFFFE IFFFFFFO 
3FFFFFF8 3FFFPFFC 7FFFFFFS 7FFFFFFE 
YFFFFFFr FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF 
FFFFFFFE 7FFFFFTE 7FFFFFFE 7FFFFFFC 
3FFFFFFC 3FFFFFF3 IFFFFFFO OFFFFFEO 
07FFFFCO 03FFFF00 OOFFFEOO OOIFFOOO 



cateur de la listc 
(icone et masque) 
7ffF31044 „,,.„..™™... ... 

0F4BE86Q !""..5l||;.Ji...^....' «' 

■ Saa'ii I ■■■■■ ■ 

3EF8DO0C ' ' •■■ 

7FF90006 .. . \_ 

7FFC4022 ' . '] 

3FFE0038 'mlliJ'il-'.;." ■ '"I 

U/JSJ^ilUU •l|ll"lll„[- .. ■„• 

00000000 ""iUiiMi"" 



p 



■ ilJBIIlKBBIIritaiHIfaPBIBBBBil 

■ P*>> ■> 

■ EIBIP ■aBKHHtoa>B*BI PVBB mm-m 

■ ■ r k n ■ h I ■ I imBi I ■* «■ 

■ ■i ■■■■ BBP* ■•■1 PIB 

mmwt---^-^'f H«* KBaBfl Bfl ■ 

• ■ I ||.P I ■ I ■■■■r««BVB1 ■ 

'! f]E:::::;:::::siBinis;:ii 
vi:ii!!!i!i;;;!|;iS!H!i:» 
'i;;;;:;iE;i]iim9ti" 



■* lc6ne du ler type de fichier (TEXT) 

,123(32} ; ; Identif icateur de la liste 

2 ;;Noiubre— 2 (icSrte et masque) 

OFFFOOOO 08018000 0B014000 0A81E000 i~" 
0B6EA000 OAGEAOQO F8002000 BBF7A000 
n8OO20OQ An7PF800 B8400C0Q Ann87FFS ' 
S854400C BBDBSeOA 8853540F BAC05B75 
885ED375 BBCO4001 885BDBSD B8404001 
8FDF5BFU B7C04001 8057LJVUV BE(J04001 
805E5BFD 30404001 FFCFDBFD 00404001 
00405EDD 007FC001 00004001 000Q7FFF 



!fe • ■■ pripip«.BPPi«^ 
"« pbpS ■■ IPlrSpiRHBKPI 

I ■•■ «ppp mm'm*. m ■! 1 
t A ■■prr'" 

■ mm-m m ■ ■< ■TP Bkh 

p > H ftllR PP P KP PPP 

; -I .. ■>.; ..... . 



C' - 



mil* f 



Dans le cas present, on a suppose 
que I'applicatioii (icoiic cn forme 
de pomme, type APPL) a la 
possibilite de generer deux types 
de fichiers : le type TEXT et le 
type TXT@ ; vous pouvez bieu 
sur modifier les types et la foimc 
des icones, soit en cha-ngeant 
direclemcot les valeurs dans le 
source, soit, apres compilation du 
source propose, en editant les 
ic&Bes avec un utilitaire comme 
"REdit". 

Si votre application Tie genere pas 
de fichicrs, supprimez les types 
ICN# ID i et 2 et les types FRHH 
ID 1 et 2. Si elle ne geiifere qu'un 
fichier, supprimez seulement 
ICN#1D1 etFREFIDl. 



Relations entre les 
types de fichiers 
et le Finder 



* Masque 
OFFFOOOO 
OFFFEOOO 
FFFFEOOO 
FFFFFFFC 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
007FFFFF 



OFFF8000 
OFFFEOOO 
FFFFF800 
FFFFFFFE 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
00 7FFFFF 



OFFFCOOO 
FFFFEOO 
FFFFFCOO 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
00007FFF 



OFFFEOOO 
FFFFEOOO 
FFFFFFF8 
FFFFFFFF 
FFFFFFFF 
FFFFFFFF 
00 7FFFFF 
00007FFF 





■Pitpppppppppppp 
n.llil!igSlliEI« 


■■IPHPKHIPPPBPI 


PB ppmpi mn fep ■« 


MPIiVlPilPIIPP 

• PI ■ (BSBBB. 


wm ppppppppppAEP ■■ 










■•■BPaUPVRFPpS 



I «: 

t ai 



* Icone du 2kme type de fichier (TXT^) 

, 130 (32) ; ; Identif icateur de la liatc 

2 ; ;Norabre=2 (icone et masque) 

08018000 0BFF4000 OBFFEOOO 
OBFFAOOO FSOOP.aOO SBFFAOOO 
BBFFF800 B8400COO B3VFFFF8 
BBDFDFFA A85FDFFF BBC05FFD 
BBD04001 AEDFDFFD 38 4050 05 
BFD04001 BFDFDFFD BFC05D05 
805FC001 FFDFDFFD 605FDFFD 
007FDFFD 00004001 00007FFF 



OFFFOOOO 
OBFFAOOO 
BAOOAOOO 
8A5FC0OC 
8BDFDFFD 
BFDFDFFD 
BFDFDFFD 
00405FFD 
* 

* Masque 
OFFFOOOO 
OEOOEOOU 
FFFFEOOO 
FFFO 7FFC 
FE7FFFFF 
FFFFFFFF 



vpvppvPT* m 



t m uiiiiiiiiiiip9 

t tpp ■ 

1 1^ I::: :;:::::"»»««?■ 

■■ BPB B ipaa vpp «»«««ppBBpBBa' 

r tip «•■■ ■ PPIIPPPIPPP ■ 

t III iiii iiiiiii i 
i iiiiiiii iiiiiii il::::::;!: i 

m PPPPPPP* ■ iPCtPRPRPPI ■ 

m ■ PPPPPPP _ i 

PPPHVPSRB PPIBBPP ■'■■Pp-pPPSn ■ 
PI MPIPPiP PPVPiP4P**P ■ 



0FFF8000 OFFFCOOO CEOIEDOO 
OFFFEOOO FFFFEOOO FFFFEOOO 
EFFFF800 EFFFFCOO FFFFFFFS 
FFF07FFE FFFFFOOF FFFFF007 
FE7FFFFF FFFFFFFF FFFFFFFF 
FFFFFFFF E07FFFFF EQ7FFFFF 



•» WPT 
U flRRI 



III 



litisaisss 

iRRPRgpi'l! 



«RapapppritP«a«RR*">'>> 
vpppip^ifl ■p>fl*pppppiPBP 

■pppppapap«li*4PPP*P'lPPPP 

•»ppp«i«RRtlRIR|PPPa'PPP«RIR*PP 
=- - ap PP*P ■ P ■ PP P P BP PB PP ■ Pf PP 

»!sHlEliI!miUM! ! 



■ aPIB'BPBBIWPPi'ftPIPPPPPIP 

■ PP I ■ ppkp IRR RP PR tpPPSP I P 



PMIUPIlPPPPlkiA 



LoTsqu'un utilisatcur du 
Macintosh selectionne un ou 
plu-sieuis fichiers ct demaude 
'Ouvrir' ou 'Im primer' dans le 
menu 'Fichier' oti, tout 
simplement, fait un double cLick 
sur I'icone d'un fichier, 
FappHcation concemee est charge 
et doit alter lire, dans una zone 
que nous allons detaillcr sans 
tarder, des infonnations sur ce 
qu'a demander rutitisaEeur. 

I, a variable globale 
AppParmHandle ($AEC) conticnt 
un Handle (adresse du pointeur) 
sur une zone de memuire 
relogeable contenant les 
iTiformations recherchees : 

MOVEA.L AppParmHandle, A2 

MOVEA.L (A2),A2 

TST (A2) 

BNE Imp rimer 

SUBQ #1,2 (A2) 

B6T Plusdel 
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message (16 bits) 




compleur (16 bits) 




n" de r6f. cfu volume (1 6 bits) 


\ 

I 


type de tichier (32 bits) 


CD 


n" de version (8 bits) 


3. 

tD 


8 bits non utilises 


o 


long, du nom de f iciiier (8 bits) 


CD" 


caracteres du nom de ficiiier 


; 






n" de r§f. du volume (1 6 bits) 


\ 

1 


type de fichier (32 bits) 


Q. 


n° de version (8 bits) 


g. 

CD 


& bits non utilises 


o 


long, du nom de tichier (8 bits) 




caractdres du nom de fichier 





Zone 'Message' 

• si elle contient 0, 1'utilisateur a 
demand^ rouverture d'un ou de 
plusieurs documents ; 

• si cllc contient 1 , Tutilisateur a 
demande Timpression d'un oa 
de plusieurs documents. 

Zone 'Compteur' 

Elle contient le nombrc de 
documents h ouvrir ou imprinier. 
Si cette zone contient 0, cela 
iiidique que rutilisateur a 



FFFFFFFF FFFOITFF FFF07FFF 007FF007 
00 7FF007 OOYFFFFF 00007FFF 0000 7FFF 

* Ajout du code objet de 1 ' applicaLiuii 

* Le fichier D4mo.Code est obtenu avecr 

* le "Linker" de ia tnarti^re habituelle 

* t 

* 

* /OuLpuL Dfeino.Code 
/Type 'TEMP' 

$ 

INCLUDE D§ao.Code 



seulement demands I'ouverture 
de I'application. 

Les zones suiv antes apparaissent 
autant de fois qu'il y a de 
documents a ouvrir ou h. 
imprimer. 

Zone 'Numero de reference 
du volume* 

Ce numero est attribu^ par le 
gestionnaire de fichier (routine 
_MouiitVol). 

Zone 'Type de fichier' 

OSType. Dans le cas d'un 
programme uiilisant les res- 
sources listees ci-contre, il 
potirrait s'agir du type 'TEXT' 
ou'TXT@' 



Zone 'Numero de version 
du fichier' 

Par convention, toujours 0. 

Zone 'Un octet non utilise' 

Zone 'Longueur du nom' 
Sur un octet. 

Zone 'Nom du fichier' 

Chauie contenant les caracteres 
composant le nom du fichier, 
plus un caract^re nul si le dernier 
caractere du nom se trouve sur 
une adresse impaire {dans le cas 
ou le nombre de caracteres dans 
le nom est pair). 



Compatible 
incompatible 7 

VoLci la diMiu6n; listc dca problimcs 
de compatibility avce le Maeiotosti 
Plus lipenm i£s jjar Apple et revus 
par Pom's. Tout d'jibojd, il faut 
pailci ilu cljissenicnt dci 
progiimmies en dnq t::iil£gurics. 

Catigorle regroup* les logi- 
ciels saas problime, ou possidiiu 
UJK version MacPlus. 
CuC^gorie 1 Ingicielii qui nfc^s- 
siteot Set System et Finder mis au 
golt da jour. 

Cat^gorle 2 logicieh compa- 
tibles avec cependaai quelques 
iBstriclions. 

Cat^gorie 3 logiciels alkrgiques 
i la gestion de fichiem hiSrarchique. 

C«t^gari« 4 les incoinpaitiblcs. 
Les remedes... 

Pew les c^gori«B 1 et 2 ; 

■ Logiciel non protfg^ ; transftter le 
systime du MacPluj sur une 
disqueOe SUUKo, aiDsi que tous les 
(ictiiers li£i su lo^iciel, &t eslie 
ccfiier 1 1'aide du F7DA Mover du 



MacPlu! les polices el acoessoiies 

- Logicisl pfotfgi ; d^mairer la 
distjuetts systime du M?cP)u» £t 
lancer I'appiicBtion Installer, mettr« 
dans le second icctcur la disqucClc du 
logicicl, jdlcclionner I'option 
"Madntosh Plus System Vl.O" ct 
tliquer dans 'Installer*. S'il u'y a pas 
assez de place puut effectuer 
l adaptation, il vous faul isolcr »ur 
une disquene SOOKo le lyst^me et !e 
Finder, que vous ad^ptez conmie 
pour un logicie] non protsg*. 
Pour la categoric 3, il convient de 
travailler sans ufilisar de dnitiiers. 

Pour la cacdgurie 4, prot^der cotume 
pour les logieiels protSgis 
(citSgOries 1 *t 2), mafs en eSquatit 
dans I'option "Qavier Univetsftl" au 
lieu de I'optioa 'Installer' : aiusi, 
vous adaptei le claviw sans modifier 
Ic teste du systSme. 

Le cla<:.<ieTnent... 
Cut^gorie 

Gestion Gieats, Gestion CoinpCaiile, 
Gestion Simil I.IC, MacUste l.S, 
MacTap. Maeslria, Medimac. 
Talkie-Mac vefsioo L 
Categoric 1 

itmt dimeiision version 2.0, ABC 



Base version 14F, Accessory Pact 1, 
AD MacFichief, Addenda EjmI, 
Airborne, Challenger, Clic f leiie. 
Click Art. Color Prist, 
Communication Edge, Compta S imil 
1.3C. Da Vinci. Esay 3D, 
Enchanter, Eicel. EiperLogo 1.1. 
FictFinder, Fotter Triplan, 
FoofDA Mover 3,1, Fontastlc. 
Gestion Devis 2.01, nriffin 
Terminal, Lode Runner, Logi Font, 
Mae 2392, MacE>ra*, Macintoih 
Pascal 1.0, MacPaint, MatPrejeel, 
MacSAV, Mac Space, MacSpeUi , 
MacTell II2.1, Mac The Knife {3 
distj.), MacWtite, Magic, 
Managtmeut Edge, Megafcsm 1.0, 
Microsoft Chart 1.0, Microsoft File, 
Mind Prober, Modem Universcl 
Apple, Negociation Edge. Paie Mac, 
PFS (File, Rq)ort), Picture Base, 
PyiMiide, Quiet Faint, Quiet Word, 
Ready Set Go 2.1, Remember, Sales 
Edge. Sargon III, SciFont, Silicon 
Press, SoundCap, StarCross, Stat 
Works, Suspended, Tech Font, TK! 
Solver, Transbase, Versaterm, 
Videoworks, Zoric (3 disq.). 

Categoric Z 

1st Ease 2.1, Conc«nWaie+3.0, ex 
Base 3U0, Base 500, CX Base 
M24, DB Maslei, Fluent Fonts, 
Jazz, Le Tube Mac Trades, Mac 
Vision, Omnis 3, PageMaker 1.1, 



Switcher 4.4, Telemac B u U, Telemac 
IBM, TtiinkTank, ThanderScan, 
Word. 

Catigorie 3 

Assembleui 6S000, Basic 2.0, Colw 
Chart 2.0, Crunch l.O, Etollars and 
Sense, Fiievision 1.0, Le Lisp, Lisp 
Expert Kit, Mac C, "MacDent, 
MacDraft, MacForth, MacFortran, 
Melusine, Orthogiciel, Oveivue 2.0, 
Slide Show Magidan. 
Catigorie 4 

Aztec C 1.06G, ChipWiu , CiicfcOu 
Workslieet, Compta Mac, 
MacAdvantage, Mac Agenda, 
MacCommand, Mac Crypt 1, 
MacExpert, MacLion, MacManager 
1.1, MacPnblishcr 1.31, 
MacTerminal 1,0. MacBooster, 
MegaFiler 1.01, MegaMerge 2.0, 
Miilliplan, Mil sir. Worts, Quart at. 
Smooth Talter 2.0, Strategic 
Conquest, Through the Looking 
Glass, Wizardry et U plupait des 
jeax BOB iist^s dans les categories 
pr&^entes. 

Dans le prochain mim^, sous noas 
attacheroDS au particularisme des 
certains piogiaiiiiiie^, tels que . Bailie 
2.0, Jazi, Macl>rafl, MacTenninal 
1.0, MacTriicks, Micru^oft File, 
MultipUm, Ottmis 3,... 
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Analyse ]VIulticrite;re 



Nous vous proposons un 
programme d'aide k la decision 
ecrit en Applesoft, et fonctionnant 
iiidiffeiemment sur Apple ][+, 
//e, //e+ ou I/c. 

Theorie 

Les methodes d'analyse multi- 
crit&ie servent & analyser et 
comparer, en fonction de 
plusieurs critferes, un certain 
nombrc dc decisions possibles, 
que nous appellerons des 
"projets". Les critferes d'evalua- 
tion sont souvent conflictuels : 
ainsi, pour prendre un exemple 
simple, une entreprise cherche en 
meme temps k maximiser son 
profit ct sa part dc marche, ce qui 
— au moins I court terme - est 
contTddictoire. 

Les methodes d'analyse multi- 
crit^re utilisent deux types 
d'lntormation : un jeu de notes 
(une note pour chaque projet en 
fonction de chaque critfere) et une 
seric dc "poids" rcpresentaut 
I'importance relative de chaque 
critSre. 

La methode Electre II, sur 
laqucUc repose Ic programme 
presente ici, procMe de la fagon 
suivante ; tous les projets sont 
compares deux ^ deux, & partir de 
quoi on obtient deux classements 
des projets, permettant ainsi une 
double penipective sur I'ensemble 
des projets. 

Comparaison de deux 
projets X et Y 

Pour chaque pa ire de projets X et 
Y, on calcule : 

P^(X,Y) somme des poids des 
critferes selon lesquels 
X est meiUeur que Y 

P~(X,Y) somme des poids des 
crit&res selon lesqueLs 
X est aussi bon que Y 

P~(X,Y) somme des poidis des 



critferes selon lesquels 
X est moins bon que 
Y 

X est meilleur que Y pour un 
critere quand I'ecart cntrc les 
notes selon ce critere est 
favorable ^ X et ddpasse le seuU 
d'indiffirence. Le seuil d'indif- 
ference d'un crit&re, notion 
propre i Electre, est I'ecart 
maximum que Ton peut avoir 
cntre les notes accordces selon ce 
crit&re sans que Ton puisse dire 
que cet 6gard justifie une 
pr^fi^rence en faveur du projet le 
mieux note. 

On calcule de meme un indice de 
concordance. 

Indice de concordance 

L'indice de concordance C(X,Y), 
defini ci-dessou£, sera d'autant 
plus proche de 1 que la 
preference vers X par rapport k Y 
sera plus nette. 

C(X,Y) = [P+(X.Y)+P=CX.Y)1 / 
[ P+CX,Y)+P=(X,Y)+P^pf,Y)] 

On se definit trois seuils de 
concordance CI, C2 et C3, tels 
que : 

1 >C1 >C2^C3>0 

les valeurs standards proposees 
par defaut par le programme 
Electre 11 etant 3/4, 2/3 et 3/5. 

Seuils de discordance 

On definit de mSme deux senils 
dc discordance Dl ct D2, tcls 
que : 

0<DI <D2 

Surclassement fort 

On dira que X surclasse 
forlement Y si les conditions 
suivantes sont remplies : 

soit • P+(X,Y) > P-(X,Y) : le 
poids des critSres selon 



Serge Cattan 

lesquels X est meilleur 
que Y depasse celui des 
critSres ou I'inverse est 
vrai ; 

• C{X,Y) > CI : il taut 
attcindrc ou depasscr Ic 
premier seuil de 
concordance ; 

• pour tout critfere ou Y est 
meilleur que X : Note(Y) 

- Note(X) < D2. 
soit • P+p(,Y) > P-(X,Y) 

. C(X,Y)>C2 

• pour tout critfere oii Y est 
meilleur que X : Note(Y) 
-Note(X)^Dl. 

II y aura done surclassement fort 
dans I'un des deux cas suivants : 
Stre plus exigeant sur la 
concordance, ou plus sev6re sur 
la discordance. 

Surclassement faible 

On dira que X surclasse 
faiblement Y si les conditions 
suivantes sont remplies : 

- P+(X,Y) ^ P-{X,Y) 
. C(X,Y)SC3 

• pour tout entire oti Y est 
meilleur que X ; Note{Y) 

- NoteCX) < D2. 

En resume, que le surclassement 
soit fort ou faible, X surclassera 
Ysi: 

• d'une part, le poids 
cumule des critferes ou X 
est meilleur que Y est 
suffisamment grand, 
relativement k celui des 
critferes oij I'inverse est 
viai ; 

• d'autre part, il n 'exists 

{9as dc crit^rc selon 
equel Y est franchement 
meilleur que X. 

Ueux methodes 
de classement 

Electre II foumit comme rcsultat 
deux classements. 
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Dans le classemeiU direct, les 
eventualites sont rangees de telle 
fa(;on qu'unc evcnlualiie X 
precede une eventualite Y si et 
seiilement si X est surclasse par 
moius d'eventualites que Y. 

Dans le classement inverse, les 
eventualites sont rangees de telle 
fa^on qu'une eventualite X 
precede une eventualite Y si et 
seulemem si X surclasse plus 
d'eventualites que Y. 



Ces deux classcments se referent 
au nomfare de surclassements 
forts. Les CA aequo eventuels sont 
departages par le nombre de 
surclassements faibles. 



Le Programme 

II comprend un menu de cinq 
rubriques. La premiere pennet dc 
saisix le problfeme. La seconds 



permet de letrouver un problfemc 
prealablement sauvegard6 sur 
disquctte. La troisi^me autorise la 
modification dune donnee. La 
quatri&me donnc actfes h uii mode 
d'emploi detaille. Quant k la 
demiere, elle se charge du retour 
^ I'Applesoft. 



Programme 

'ANALYSE 
MUL TICRITERE' 

Note : une puce (') dans une chaTne de camctire 
symbolise un espace. 

100 HEM ************************************** 

110 : 

120 REM CATTAN Seitre ANALYSE MaLTI 

CRITERE 09/85 

130 : 

T 40 REM ** *^ ****** ^ *************** f^* * ^* * 

Ji A- A A A A A AAA A<itAl***:*AttttAtt 

7.50 ONF.RR GOTO 3550 

160 T$ = " 



no = CflK^ 14) 

1 SO HOME 

190 INVERSE : PRIST SPC ( 40J 

.200 PRIMT " • • - < JO^ALYSE-MULTICRI TERE 

« • « # * 



510 PRIilT SPC( 40J 

220 NORliAL 

230 POKE 34,4: VTA3 3 

^40 ynim' "ANALYst'v 'un'i'mBhms' • — >'i" 

250 PRINT "REPRISE-AHALYSE-EXISTAUTE- • • —--"S" 

260 PRIHT "HODIFICATION'DOmEES — >'3" 

270 PRINT "MODE- D'EMPLOI 4 >- 

280 PRINT " RE TOUR -AU' BASIC" — >0" 



290 POKE 36,11: VTAB 13: INPUT "VOTRE-CHOIX- ?' " 

;E$:R = VAL (Ii?> 
300 ON R GOTO 350,320, 330, il5Q, 340 
310 GOTO 290 
320 GOsm 3320: GOTO GSO 
330 GOSUB 3320: GOSUB 2710: GOTO €30 
340 POKE 34, 0: END 
350 HOME 

360 VTAB 8: INPUT "NOM'DE' L'ANALYSE' (7'POUR'LE- 

CATALOGUE) •?";NES 
370 IF NE$ " -?" OR LEN (NE$) - THEN GOSUB 

3620: GOTO 350 
380 PRINT .- INPUT "NOMBRES- D ' ACTIONS' ■'?• ",-NA$ 
390 NA = VA!. (NA$) : TF NA < ? THEN PRINT "-UN- 

CHIFFRE->-l-S.V.P.": GOTO 360 
400 PRINT : INPUT "NOMBRE- DE-CRTTERES- ?•": NC$ : S 



1-0 

410 NC ^ VAL fWC^;i IF NC < 2 THtiN FKINT "-UN' 

CSIFFRE-> •I'S.V.F.": GOTO 3SQ 
420 GOSUB 4 ISO: GOTO 490 
430 REM =■=== DIM TABLEAU 



440 IF MB - 1 THEN RETURN 
450 DIM AC$ INA) , CR$ (NC) , PO (NO 

460 DIM DO (m, NC} , NO (NA, 2, 3) , RA (NA, 3> , HI (NA) , NJ 
(NA},m (NA) 

470 DIN FP<NA,NA) ,PM(NA,SA) ,I}M{NA,NA) ,RB(m,NA, 

2) , Dl (NC) , 02 (NO . i?S f NA, NA, 2) 
480 ME ^ 1: RETURN 

490 REM ^=====--=- ^=========.==. 

500 REM SRISlB _^=_ — 

510 HOME. 

520 FOR I = 1 TO NA 

530 PRINT : PRINT "ACTION' N I • "; I; ";: I 

NPUT AC$<I) 
540 NEXT I 
550 FOR 1=1 TO NC 

SeO PRINT : PRINT LEFTS (T$,40);: PRTNT : PRTN 
T "CRITERE-N[- "fl/"' : INPUT CR${I) 

570 INPUT "QUEL'EST'SON-POIDS-?".-PO$:PO(I) = V 
AL (PU9) 

580 IF P0(1) = THEN FLASH : PRTNT "(rU'CHTFFR 

H'O'Q'S.V.P,": NORMAL t GOTO 570 
590 SI = SI + PO(I} 
600 NEXT I 
61 Q HOME 

620 FOR I 1 TO m 

€30 PRINT 1 PRINT LEFT? (T?,40}f: PRINT : INVE 
RSE ; PRINT "'** -ACTION- "/AC$ (I) NORMA 
L I PRINT 

640 FOR J = 1 TO NC 

650 PRINT : PRINT "QUEL-EST-SA-NOTE-D'APRES-LE' 
CRITERE-": PRINT CR$ (J) : INPUT D0$:DO( 
I, J} - VAL (DO$) 

6€0 IF DO (I. J} = THEN FLASH : PRINT "UN'CHIF 
FRE-O-O-S.V.F.": NORMAL : GOTO 650 

670 NEXT J, I 

680 REM CALCUL DES ET DES P- ^ = 

690 REM ========================= 

700 FOR I - 1 TO NA - 1 
710 FOR J ^ I + 1 TO NA 
720 PP(I,J} - 0:PM(I,J) = 
730 FOR K = 1 TO NC 
740 DI - DO(l,K}:DJ - DO (J, K) 

750 IF DI > DJ THEN PP(I,J) = PPflrJ) + PO(K} 
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PM(I,J) + PO(K) 
0.0001 



r • 

LEM (Dl$) > 
LEN (D2$} > 



750 IF DI < DJ THEN PM(I,J) 

770 NEXT K 

790 IF PMil.J) = THEN PH(I,J) 

790 HEXT <7,I 

800 HOME 

SIO REM SAISIE COEFFICIENTS ===== 

830 BC ^ 0: IF R ^ 2 OR R ^ 3 THEN 850 
840 rr BC = D TURN S7Q 

850 PRINT : PRINT ; INPUT "VOOLEZ-VOUS' MODIFIER 

• LES'COl^FFTCTRNTS' • 'm^KT'DP' ?• ",-RK$ 
860 IF LEFT$ (RE$, 1) < f "0" THEN 350 
870 HOME : PRrWT A rSTE'M.^-SRf/T^^'DE-Dr.'JC 

ORDmcE'"'" 
880 PRINT LEFT$ tT$, iO) 
890 FRINT : I^RINT : FUR 1=1 TU NC 
900 PRINT "POUR'LE-CRITERE'",'CR$ (I) : FRINT 
310 PRINT "DJ = -"/: INVERSt: : FHIHT Dl (I) , 

NORMAL : INPUT ""■\-01$: IF 

■J'Hi'W UHIJ = VAL (1)1$} 
S20 PRINT "D2=t"f: INVERSE PRINT D3 (I) . 

NORMAL : INPUT ;D2?: IF 

THEN D2(I} - VAL (D2$> 
930 IF D2 (I) - < Dl (I) OR Dl (If = < THEN P 

HINT ! FLASH : PRINT "IL'FAUT- 0' C-Dl* <'D2" : 
NORMAL : PRINT : GOTO 900 
940 NEXT I 
950 HOME 

960 IF R = 2 OR R - 3 THEN PRINT : INPUT "VOUL 
EZ-VOUS ■MODIFIER' CI. C2,C3'?", -RES: IF LEFT$ 
(BE^jlj < > "0" THEN 1030 

970 HOME : PRINT "***-SAISIE'DES-SEUILS'DE'CONC 
ORDANCE' 

980 PRINT LEFTS (TS, 401 : 

^90 PRINT : PRINT "COEFFICIENT-Cl •?'•■; : INVERSE 
: PRINT Clf"'"; : NORMAL : INPUT $: 
IF LEN (Cl$) ^ THEN CI = VAL (Cl$} 
1600 PRINT ; PRINT "C0EFFICIENT*C2' ?•"; : INVERS 

E ; PRINT C'2;"*";; normal ; INPUT "••",'C2$; 

IF LEN (C2$) > T3EN C2 = VAL (C2$} 
1010 PRINT : PRINT "COEFFICIENT-UJ' y : INVERS 

If ItN K3$) > THEN C3 = fAi {€3$} 

1020 IF CI ^ > 1 OR C2 = > CI OR C3 = > C2 O 
R C3 = < THEN PRINT : FLASH : PRINT : P 
niNT '•IL-FAVf-Q-<-C3-<-C2-<'Cl-<-l": NORMAL 
: GOSUB 3120: GOTO 970 

1030 REM RELATIONS DE SURCLASSEHENT 

1040 REM ===== ■ ============^===.===== 

1050 BOMB : FLASH : PRINT LONGUEURS ■ DES ■ 

CHEMINS- ISSUS' NORMM. 

1060 Kl = 1:K2 = 2:BC = 1 

1Q7Q FOR I = TO NA 

1080 FOR J ^ TO NA 

1090 FOR K = Kl TO K2 

1100 RE(I,J,K} = 

1110 NEXT K,J.I 

1120 FOR I ' Kl TO NA - Kl 

1130 FOR J - I + Kl TO NA 

1140 DM(I.J) = 0:DK(J,I} = 

1150 FOR K = 1 TO NC 

lieO DK = DO(J,K) - DO(I,K) 

1170 IF D^ffJ, JJ = K2 THEN 1200 

IISO IF DK > D2(K) TSSN Dft(l,Jj = K2 1 

1190 IF DK > Dl (K) THEN DM {I, J) = Kl 



1200 
1210 

1220 

1230 

1240 



1250 
1260 
1270 
1280 



12<iO 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 

1400 
1410 
1420 
1430 
1440 



1450 
14 SO 
1470 
1400 
1490 
1500 
1510 

1520 
1530 
1540 
1550 

iseo 
ib/v 

1590 
1590 
1 £00 

1€10 

1620 

1630 



IF DM (J, I) = K2 GOTO 1230 

IF DK < - D2(K) THEN DM {J, I) - 2; QOTQ 12 
30 

IF DK < - D1(K) THEN DM (J, I) = Kl 
NEXT K 

RP - PP!I,J) / PM(l,J):PM = Kl - PM!I,J) / 
SI: IF JfP = mo PM(I.J) = O.OCOl THEN 129 


IF RP < Kl GOTO 1410 

IF RM CI GOTO 1320 

IF DM(I,J) = K2 GOTO 1350 
RE(I,0,Klj ^ K1;RE(I,0,K2J = K1:RE(1,J,K1) 
^ K1:RE(I,J.K2} Kl:RE(0,J,Kli = K1:RE{0,J 
,K2) - Kl 

NEXT J 

NEXT I 

GOTO 1530 

IF RM < C2 SOTO 1370 

IF DM (I,. J) = GOTO 1280 

GOTO 1380 

IF RP = Kl GOTO 1410 
GOTO 1290 

IF RM < C3 GOTO 2350 

IF DM (I, J) = K2 GOTO 1350 
RE(I,0,K2) = KllRE(0,J,K2) = K1:RB(I^J,K2) 
= Kl 

com 1290 
RM = Kl - PP (I, Jl / SI 

IF RM < CI GOTO 14 GO 

IF DM(J,I) = K2 GOlO 1290 
RE(J,0,K1) - K1:RE{J,I,K1} - K1:RE(0,I.K1) 
= Kl:REiJ,0,K2] - Kl :RE (J, I,K2) = K1:RE(0,1 
,K2i - Kl 

GOTO 1290 

IF RM < C2 GOTO 14 90 

IF DM (J. II = GOTO 1440 

GOTO 1290 

IF RM < C3 GOTO 1290 

IF DM(J,I) = K2 GOTO 1290 



RE(J,Q,K2i 

- Kl 
GOTO 1290 
FOR 1=0 
FOR J = 
FOR K = Kl 



Kl : RE (J, I, K2} - Kl : RE f 0, T, K?) 



TO NA 
TO NA 
TO K2 



RS (I, J, K) = RE (I, J, K) 

NEXT JT, J, I 
AZ = IsBZ = O: CO£UB 3220 
NL = 0; HOME 

PRINT "LONCUEURS'DES'CHEMINS'ISBUS* :"i PRI 
NT : PRINT 

FOR I = 1 TO NA 
A$ ^ AC$(NQ!IrKl,Kl} ) :GM ^ INT (N0(I.K2.KI 
))!NB(I} ' N0(I,K1,K1} :NI (I) -N0(I,K2,K1) 
NL NL + 1: PRINT : PRINT '•POUR'";A$; 'LO 
NO (I. K2, K2) :NJ (I) = NO 



GOTO 1200 



NGUEVRS- • GM,- " - £T • ' 
(I.K2.K2i 

1C40 IF NL ^ 7 AND NA c 

B 3120: HOME 
1650 NEXT I 
1660 GOSUB 3120 

1670 HOME : POKE 3S,13: FLASH 

SEMENT' NORMA T. 

1680 RA(K1,K1) = NO(Kl,Kl,Kl) 
1630 m(Kl.K2\ = Kl 



ML THEN NL 



GOSU 



PRINT- •"**-CLAS 
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1700 FOR I = K2 TO AH 

17:0 IF NO(I,K2,Kl) t SO (I - K1,K2,K1) GOTO 174 


1720 R/i(IfK2) = RAfI - K1,K2) 

1730 SOTO 1750 

1 74U KAII,K2) = 1 

1750 RAH^Kl) = miI,Kl,Kl} 

1760 NEXT I 

1710 FOR K = Kl TO 

1780 FOR 1 ~ TO SA 

1790 FOR J = TO m 

1800 RE(1,J,K) = RS(J,1,K) 

1810 HEXT J,I,K 

1820 hZ = - ItBZ = NA: GOSUB 2220 
1830 NO(0, K2rKl) 1E30 
1840 FOR J = Kl TO NA 

1850 IF m(I,K3,Kl) < WOfJ - K1,K2,K1) GOTO 187 
D 

18 £0 U0(I,X2,K2) = NO(I - K1,K2,K2}: GOTO 1S80 
1870 N0tIrK2,K2} - J 
19S0 FOR J - Kl TO m 

1990 IF RA(J,Klj = N0(I>K1,K1} GOTO 1910 
1900 UEXT J 

1910 RA(J,K2) = RAtJ,K2} + N01Z,K2,K2) 
1920 NEXT I 

1930 FOR I = Kl TO m - 1 
1940 FOR J - I + 1 TO NA 
1950 IF RAil,K2\ < = RAiJ,K2) GOTO 1980 
1560 Z = ?JiiI,Kl) -.RAdrKl^ - RAiJ,Kl) -.BAiJ.Kl) - 
7. 

1970 Z = BAi.I,KZ) -.RA{I,K2} = EA(J, K2) :RA(J^K2) = 
X 

1380 NEXT J 
1990 NEXT I 

2000 VL<K1,K1) = fMfJfI,fflJ 
2010 RA{Kl,3i = Kl 
2Q2Q FOR I = K2 TO NA 

2030 IF RA(I,K2) >■ RA(I - 1,K2) SOTO 20SQ 
2040 RA(I,3i = - ABS (RAd - Kl,3)) 

2050 GOTO 2070 
ZOeO RA(I.3) = I 
2070 NEXT I 

2080 REM AFFICHAGE CLASSEMEttT ===== 

2090 REM ==*===^=«================= 

77 00 ROMF. : POKF. 3f;,13: PRTNT "****CT.A!;!;FMF.NT' * 

**": PRINT 
2110 PRINT LEFTS (T$, 40) } 
2120 NL = 0: FOR I = XI TO NA 

21 30 NL = Wi + J r PRINT ; PRINT ABS (RA fl, 3} ) - " 
•";AC$(RA(I,K1) ) J : IF RA(I,3) < THEN PRI 
NT "'EX'ASQPO"/ 

21i0 IF NL > 9 THEN COSUB 3120:NL = 0; HOME 

2150 NEXT I 

2160 VTAB 23: PRINT ; INPOT "VOULEZ-VQUS'RECOMM 

ENCER-L 'ANALYSE- ?"fRE$ 
2170 IF LEFT$ (RE$,1) = "0" THEN HOME : GOTO 

B40 

2180 GOSUB 3140 

2190 PRINT i INPUT "VOULEZ-VOUS' TMPRIHSJR-CES- RE 

2200 IF LEFT$ (R$,l) - -O" THEN GOSUB 3640 
2210 HOME : GOTO 220 

2220 REM CREMINS LES + LONGS — — 
2240 .- 



;>7.S0 FOR K = Kl TO K2 
2260 B - 

2270 FOP I ^ Kl TO NA 
22S0 FOR J = Kl TO NA 
2290 RR = RE(1,J,K} 
2300 IF RR < =0 GOTO 2450 
2310 H = ffl 

2320 IF RE(J,0,K) < ? GOTO 2350 
2330 RF,(T,J, K) - - RR 
2340 SOTO 2450 
23!in TI = .7 
2360 Bl = 

2370 TOR .T? - fri TO NA 
2380 ST = RE(I1,J1,K) 
2390 IF RT ^ GOTO P43fl 

2400 IF RT > TEEN Bl = Kl : GOTO 2430 
2910 VA " RR - RT 

2420 IF VA > ABS (RE(I,J1,K)} THEN RE(I,J1,K) 

= - VA 
2430 NEXT Jl 

2440 IF Bl - rSEN RE(I,J,K) = 
2450 NEXT J 
2460 NEXT I 

2470 IF B = Kl GOTO 2260 
2480 NEXT K 
2490 FOE K = ifl TO K2 
3500 FOR I = Kl TO NA 
2510 MM = 

2520 FOR J - Kl TO NA 

2530 IF ABS (RE(I,J,K}) > m THEN MM = ABS (R 
2540 NEXT J 

2550 NQ(I,K1,K) - I:N0{I^K2,Kl = MM 

2560 NEXT I 

2570 NEXT K 

2580 FOR I = Kl TO NA 

2590 N0<IffC2,Kl) - fN0fI,K2,Kl) + N0{T,K2,K2f / 

1000) * AZ * B2 
2600 NEXT I 

2610 FOR I = Kl TO NA - Kl 
2620 FOR J ^ I + Kl TO m 

2630 IF N0lI,K3,Kli > N0(J,K3,K1) THEN 2580 
2640 FOR K = Kl TO K2 

2650 Z - N0(I^K1,K) :N0(I,K1,K} = NO(J,Kl,K):NO(J 
,K1,K) = Z 

2660 Z - N0(I,K2,K) !N0(I,K2,K} - N0(J,K2,K}sN0(J 

,K2.K) = Z 
2670 NEXT K 
26B0 NEXT J 
2690 NEXT I 
2700 RETURN 

2710 REM MODIFICATIONS 

2720 REM ============ ^1 . 

2 730 BOME 

2740 PRTNT : INPUT "VOULEZ-VOUS'MODIFIER'UNE'NO 
TE- ?",-RS$ 

2750 IF LKFTf <RF.$^ 7 } C > "0" TURN 2900 

2760 PRINT "POUR' QUELLE^ ACTION-?" 

2770 PRINT : INVF.R.^R : FOR T = 1 TO NA: PRTNT I 

;"-"'AO$iI) : NEXT 
2730 NORMAL : PRINT ; INPUT A$:A = VAL (A$) 
2790 IF A < L AND A > THEN 1 = A: iSOTO 2810 
2BO0 PRINT 1 PRINT "ACTION- INEXISTANTE ." : GOTO 

2740 

3810 PRINT : PRINT "POUR-QUEL-CRITERE'?" 
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20ZO PRINT - INVERSE : FOR J - 1 TO NC 
2830 PRINT J,-"-",-CR$ fJ} 
2640 NEXT J 

2850 mUMAL 1 PRINT r INPUT C$:C - VAL (C$) 
2S60 IF C < J AND C > THEN J - C: GOTO 2BS0 
2870 PRINT ! PRINT "CRITERE' INEXISTANT. " : GOTO 
2810 

2830 PRINT "NOUVELLE'NOTE'?-"! : INVERSE : PRINT 
PO(J,a>;: NORMAL : PRINT " "/ ; INPUT DO^: 
IF LEN (DO$l > THEN DOfl.Jl = VAL (00$) 

2890 REM 

2900 PRINT r INPUT "VOULEZ-VOUS-MODIFIER-UNE-AC 

2910 IF LEFTS (RE$.l) < > "Q" THEN 3000 
2S2Q PRINT "LISTB'DES'ACTIONS'PEESEtfTES' : " 
2930 PRINT : INVERSE ; FOR 1=1 TO NA 
2940 PRINT I;"-",-AC$(If 
2950 NEXT J 

2960 NORMAL : FEINT : INPUT "ACTION-A'MODIFIER' 

?":AS:A = VAL (AS) 
2370 IF A I AND A > TUBN I = A: GOTO 2990 
29^0 PRINT : PRINT "ACTION' INEXISTANTE. "t GOTO 

2900 

19S0 NORMAL : PRINT : PRINT : INPUT "NOUVEAU'NO 
M'?";AC^: IF LEN (AC$) > THEN ACS (I) = A 
C$ 

3000 PRINT ; INPUT "VOULEZ-VOUS'HODIFIEK'UN'CRI 

TERE' ?";RE$ 
3010 IF LEFr$ (RE$,1) < > "O" THEN 3100 
3020 PRINT "LISTE'DES'CRITERES-PRESENTS- 
3030 PRINT : iWVfKii-' ; FOR 1 ^ 1 TO NC 
3040 PRINT I,'"-"rCR$ (I) 
JU:>U NEXT 1 

3060 NORMAL • PRINT : INPUT "CRITERE' A' MODIFIER 

'?";AS:A = VAL (A?) 
3070 IF A <r I AND A > THEN 1 = A: GOTO 3090 
3080 PRINT : PRINT "CRITERE' INEXISTANT, " ; GOTO 

30 00 

3090 NORMAL ; PRINT : PRINT : INPUT "NOUVEAU'NO 
M'?",-CR$: IF LBN {CRf) > THEN CR$ (1) = C 
R$ 

3100 RETURN 

3110 REM ====™===============^========™= 

3120 POKE 36,0: VTAB 23: PRINT "APPUYEZ-SUR'UNE 

'TOUCaE'PQUR' LA-SUITE.": GET C$ 
3130 RETURN 

3140 REM SAUVEGARDE SUR DISQUE 



3 J 50 PRINT 

3160 PRINT D$;"OPEN",-NES 

3170 PRINT D$,-"HRITE",'NE$ 

3180 PRINT NA: PRINT NC 

3190 FOR I - 1 TO NR 

1^200 PRINT AC$(I) 

3210 NEXT I 

1??f> FOR I = 1 TO NC 

3230 PRINT CR$(J[} ; PRINT PO(I) ; PRINT 01(1) : PR 

INT n?(T) 

3240 NEXT I 

3250 PRINT CI: PRINT C2: PRINT C3: PRINT SI 

3260 FOR 1=1 TO NA: 

3270 FOR J = 2 TO NC 

3280 PRINT DO (I, J) 

3290 NEXT J, J 



3300 PRINT D?,- "CLOSE" 

3310 RETURN 

3320 REM LECTURE ENRECISTREMENT 



3330 VTAB 23: INPUT "NOM-DE-L 'ANALYSE- (? 'POUR- L 

F.'CATA LOnUF.j NF.S 

3340 IF NE$ = "?" OR LEN (NE$) = THEN GOSUB 

3(,?0i ROME : noTo ^^^f1 

3350 HOME : INVERSE : POKE 36,$: VTAB 23: PRINT 

"ANA LYSF' FICRIF.R -. . . "t NE$ : NORMAL 

3360 PRINT 

3370 PRINT D$;"OPEN"jNE$ 

33S0 PRINT D$r "READ"; NE$ 

3390 INPUT NA: INPUT NC 

3400 GOSUB 430 

3410 FOR 1 = 1 TO NA 

3420 INPUT AC$(I) 

3430 NEXT I 

3440 FUR 1=1 TO NC 

3450 INPUT CR$ (lit INPUT PO (I}: INPUT D1(I): IN 

PUT U2 (I) 

34 60 NEXT I 

34 70 INPUT Cl: INPUT C2 : INPUT C3: INPUT SI 

3480 FOR I - 1 TO NA: 

3490 FOR J = 1 TO NC 

3500 INPUT DO (I, J) 

3510 NEXT J, I 

3520 PRINT D$r "CLOSE" 

3530 RETURN 

3540 REM TRAITEMENT ERREUR—— ==—======= 



3550 IF PEEK (2221 - 5 THEN VTAB 10; PRINT »F 
ICHIER • INEXISTANT " : PRINT D$; "DELETE •\-NB$ : 
GOSUB 3620: GOTO 3S70 

3560 PRINT "ERREUR" 

3570 FOR IT - 1 TO 1000: NEXT 

3580 POKE 34,0: GOTO 180 

3590 REM 

3600 REM LECTURE CATALOGUE 

3610 REM — 

3620 PRINT DSr'CATALOG": PRINT : PRINT "APPUYER 

•SUR-UNE-TOUCUE": SET R? : RETURN 

3640 REM LISTING IMPRimNTE 

3650 REM ======================= 

3 660 PRINT D$;"PRf3" 

3 670 Tl$ = "======================== 



3680 PRINT ; PRINT D$;"PRil" 

3690 Nl " 7:N2 " INT (NA / Nl) * 1: IF NA = Nl 
THEN N2 = 1 

3700 PRINT CSR$ (27); CHR^ (64};: PRINT : PRIN 
T CHR$ (37)/ CHR$ (14);: REM GROS CARACTE 
RES 

3710 PRINT "ANALYSE'MULTICRITERE'DE- :",'NE$ 
3I2Q PRINT CHR? (15): REM 132 COLONNES 
3730 L = 1: FOR K = 1 TO N2 
3740 PRINT Tl$ 

3 750 PRINT "Dl"t: PORE 36,7: PRINT "D2"?: POKE 
36,12: PRINT "POIDS";: POKE 36,22: PRINT "C 
RITERES"; 

3760 POKE 36,40: PRINT "ACTIONS-— >"; 

3 7 70 LI " L + Nl - 1: IF NA < LI THEN LI - NA 
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3780 

3190 

3SO0 
3810 
3820 
3830 
3840 

3850 
3360 
3370 
3380 
3890 

3 'inn 

3910 
3920 
3930 

3350 

3960 
3970 
3980 

39S0 
6000 
4010 
4 020 

4030 
4040 
4050 

iOCO 
4070 
4080 

4030 
4100 
4110 
tl20 

4130 
4140 
4150 
4160 
4170 
4180 



41S0 
42O0 

4210 

4220 

4230 



^ L TO LI 
12 * P: PRINT 



LEFT$ <AC$ (J> , 



Nl : REM PRINT CUES a?) 



: PRTNT Tl$ 
"CI = ";C1;' 



cz 



C3 = ",-C3.- 



P - 1: FOR J 
POKE 3G,42 I 
10), 

F - F -^ 1 
NEXT J 

PRINT ; PRINT Tl$ 
FOR J = 1 TO NC 

PRINT DliJ);: POKE 36,7; PRINT DS (J) / : POK 
E 36. 13: PRINT FOtJj : 

POKE 36,19: PRINT LEFT? (CF$ IJ) , 20) ; 
P = J; FOR I ^ L TO LI 

POKE 36,45 + 12 * P: PRINT DO(I.J}r 
F ^ P * 1 
NEXT I 
PRTUT 
NEXT J 
L = L 
NEXT 
P ft TNT : 
PRINT 
PRim 

Km — 

PRINT CHR$ (27)- CHS$ (€4) 

PRINT : PRINT "^^'-LONCUEUK'UEiS'CMEttlNS'IS 
SOS'***" 

PRINT LEFT$ (Tl?, 79) 

FOR 1 = 2 TO NA 
A$ = AC?(NH(I) ) :GH =■ INT (HI (I)) 

PRINT "POUR'"fA$; : POKE 36,30: PRINT "LONC 
UEURS'^- ",'GM; "'ET' ";NJ(I) 

NEXT I 

BEM 

; PRINT : PFiINT : PRINT ''***'CLASSEMENT- ** * 

If 

PRINT LEFT$ (Tl$, 7§J 
FOR I ^ 1 TO NA 

PRINT fiDS (RAfI,3}},-"-:""f A.C$ (BA{I,Kl}}f 
: IF RA(I,3) < THEN PRINT "■ -EX 'AEQUO"; 

PRINT 
NFYT T 

PRINT LEFT? (Tl$,/y} 

PRINT ; PRINT D$;"PRf3": PRINT CHR$ (21): 

PHim 

GOTO 160 

RETURN 

REM MODE D'EMPLOI -^-^^^^.^^^ 

HEM ====== 

PRINT D$f"PRf3": PRINT 

INVERSE : PRINT • ANALVS 

B-MULTICHITERE 



NORMAL : PRINT : PRINT : SPEBD= 140 

PRINT "•• ■Ce'progrdmme*a«poiir-i>ut*de*votis* 
aidsr-A'fairs-lB-bon-cholx, " 

PRINT "L'^lgori t time •developpe'ici' est "ceiu 
i ■ de-Roy~Bet t lei - at- Bet ndi iJ' Bess oh " 

PRINT ''appele'Electre'2'gui'slg/iif le' : 'Eli 
min^Liun 'sL • choix'traduisanL • la'reallLe. " 

PRINT ; PRINT "Cetce-methode-permefd'obte 
nir-un • cl-assement - unique' A-paiLli 'de • plus is 



4240 PRINT "classgmBnts-dlfferents'et'sowBnt'C 

ontradictoirss , " 
4250 PRINT : PRINT "Le-probldmB- doit 'SB' present 
' sous ' forme • d ' u n • t aifZea u "a-Vee, • en " col o/ine 

4260 PRINT "les' ' act ions St ' en' ordonnss' les' c 

riteres . Le 'but 'sera 'dB'detemiaer'ls" 

4270 PRINT "meileure'dCtien-coiDpte-esrtiJ-des'tri 

t^res." 

4280 PRINT : PRINT "A' chaque' critsrs' sera' affec 
te •2* coefficients 'de 'divergence ■ Dl '©t ■ DS " 

4290 PRINT : PRINT "Af in 'de ' limiteir' les • ex' aequ 
os-vous-(;hoislrez'3'coefficient3'de'con verq 
ence" 

430Q PRINT "baptises- -CI, '02, 'et-C3." 

4310 PRINT : PRINT "Css-cosfticisnts'dsvront'r-^ 

pordre "auft-regles -suivantes • : " 
4320 PRINT "0<D1 <D2 - 'et - - Q<C3<C2<C1<1 - . " 
4330 PRINT : PRINT "Vous'donnerez'egalement'un' 

polda -c3 - chdtjue -C£ it 6re.Ce-poids - est 'bisri'sO 

r" 

4340 PRINT "suijjecL i/", 'vnieux • ei£, 'de "H *ijr?ptjaer 
• une • echei ii? • de'valeurs^ • de * n • a • P (J " 

4350 PRINT "par-exemple, 'les-notes'^tancartirib 
uees "cfans ■ 1 ' ordre'CTolssanl: ' efs>s " 

4360 PRINT "preferences." 

4370 PRINT : PRINT "La' tsch^'mst tplus- faci le, • 1 
orsqu 'on 'aispose'ae'Clonn^est ctiiffr^es, 'mais 
It 

43S0 PRINT "etant'donne-que" ies'iraieurs' les'plu 
£ •g-rsndes'Sont'attribue9S'3ux' actions" 

4390 PRINT "les'meilleures'il'taudra'dans'le'ca 
j?-d ' Vfl' aut, -p^r- cmsinplo, •chang/er'ls" 

4400 PRINT "le'signe'afiri'd'inverser'l'ardire." 

4410 PRINT ; PRINT "Prenons 'potic cycmplc Ic cho 

ix'd'une'voiture: " 

4420 PRINT "Les' act ions' ssmient ' 'ivarqucs • sO 

OLF'GTI. -RENAULT'S-TURBO'etc. " 
4430 PRINT "Les- criteres' seraient • Iss 'caractsri 

stigues' :VITESSE'MAX, ■CONSOLATION. " 

4440 PRINT "PRIX-etc," 

4450 PRINT "Les'vitesses'seront'des'chlffres'po 
sit Its, " tdndis • que -les -Gonsonmations " 

4460 PRINT "et' les*prix-ssront'des*chiffres*neff 
atlts." 

4470 PRINT : PRINT "Si ' Je-fjomb^e-ci 'ex -eitscfucj- tii C 
•trap* important, • vous'pourrBZ'augntentsr' les 

44R0 PRTNT ''r:oefficientE'Dl,'D2'ou/et'diminuQr' 

les' coefficients 'CI, '€2, -et'CJ" 
4490 SPEEDS 255 

4500 PRINT ! PRINT : PRINT "CE' PROGRAMME' A 'ETE' 
INSP IRE ' PAR 'L'AP TICLE ■ DE • DANIEL ■ FERRO • PAR U • 
DANS- LA" 

4510 PRINT "REVUE'SCIENCE'ET-VIE." 

4520 PRINT : PRINT "APPUYEZ -SUR- UNE -TOUCHE' POUR 

'RETOUR-AU'HENV. ": GET RS 
4530 PRINT CHR$ (21] 
4540 GOTO IBO 



Fichier de demonstration page suivante. 
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Fichier 'VOITURE' 

7 

7 

AUDI 100 

BMW 520 I 

CITROEN CX 25 GTI 

FORD SIEPRA 2.3 

OPEL SENATOR 2L 

P. 505 GTI 

RENAULT 25 GTX 

VITESSE MAX I 

4 

5 

10 

1000 M DEPART ARRETS 
4 

1.5 

SO A 120 KM/H EN 5IEME 
2 

100 
200 

CONSOMMATION 90 KM/H 



2 
1 

TENUE DE ROUTE 

4 

1 

2 

CONTORT 

3 

1 

2 

PRIX 
5 

5000 

10000 

24 

1$9 

-32.3 

-505 

-6. 6 

8 

6 

-132000 

190 

-31 



-585 
-7.35 
5 
9 

-117000 

192 

-31.2 

-415 

-7.35 

7 

9 

-120000 

182 

-33 

-570 

-7.25 

6 

7 

-88000 

180 

-33 

-670 

-7.45 

5 



-112000 

186 

-31. S 

-425 

-7.05 

7 

7 

-98000 

192 

-31.5 

-380 

-6. 75 

8 

8 

-105000 
5000 



S^XZe Basic enrich i 



Gerard Michel 



i 



^ Apple /// //e+, //c 




Cet utilitaire yous permet de 



fmprmer 
I'ccran 40 ou 80 cohnnes 



Nettoycr tndmoire iris 
rapidemefu par "]F". 



Gerer des messages, la 
riponse itant contrdlie. 



Gdrer des ttinsques 40 ou 80 
colomes. Ces icram; deftnis lors 
de Id progranvncition, s'ajfichent 
par la simple ciprrimafide " f A" . 



Saisir toutes les variables d'un 
icran e.n une f;eulp. rnmmnnda "]/" 
an cvrUralanl le type ei la 
longueur. 



Mais aussi, ns saisir qu£ I'um des 
variables electees d un ecran, las 
afficher, les efface r, etc 



[ 








Tons 


ies fichiers sourc* sont sur la disquetfe 




















de {leinonstratJOn nans se 


i'o 


m's 


U) 








J 



Disqucttc ct documentation : 150,00 TTC franco 
(.bon (je coTnman^e page 74) 



fPH 5.0 



EPE S.O, c'esl : 

list&r lesprogrammes 
Basic en avanl ET en 
arri^re, 

modifier, insersr des 
caract^res en plein 

ecran sans retire hs 











recherctier toule chaine 


de caractSr&sl 






C'eat aussi 


Sditer : 



Sous DOS,, 
Soils ProDOS, 
'En:40 cotorines, 
Ert'&O cohnnes, 
SurAppia tM, 
Sur Apple //&+, 
Apple //c 



EPE S.O 
200,00 F TTC, franco 

Echmgs EPE en donna 
varslon contra 5.0 
Bit.fkf F TTC franco 
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Hard-Copy sur Seilosha GP500A 



Ce programme possedant 
ses propres compteurs 
eL diapeauA, il pent etre 
associe & n'importe quel 
autre programme aprfes as- 
semblage h ime adresse adequate. 
L'appel du programme se fait a 
ORG + 233 ($E9) et permet une 
copie "hard" de I'lme des 2 pages 
grapliiques apres initialisation des 
adresses suivantes : 

. ORG + 2 : 

mode NORMAL($00) ou 



INVERSEC$01) 
ORG + 3 : 

impression SIMPLE(${X)) ou 
DOUBLE($01) 

ORG + 4 : 

SANS CADRECSOO) ou AVEC 
CAIDRH($(J1) 

ORG + 5 ; 

POSITION du dessin par 
rapport au bord gauche du 
papier. De i 255 ($00 h $FF) 
en impression simple et de a 
50 ($00 a $32) en impression 



Jean-Marc Roulon 

double. 

• ORG + 6 : 

PAGE HGR1($20) ou PAGE 
HGR2($40) 

IMPORTANT : il re faut pas 
configurer les ports 'serie' par 
rutiEtarre systeme, le programme 
initialisant lui-memc la sortie 
imprimante (slot 1). 

Ci 



Source ^ 






33 


lUITCAS 


HEX 


005032090344 
350950370S 


SO 
SI 


LDA 
SEC 


HGRH 




T,DHARD' 


39 






62 


SBC 


*$04 








iO 


' lUITIALISATJON * 


83 


STA 


HGRH 


[ssembieur BIG MAC 


41 


* DES COMPTEURS * 


Si 


DEC 


COMPT3 








t2 




85 


BffE 


PGPM 








■13 




JSR 


DLIGHe 


se 


LDA 


HGRTAMP 


2 * 




* 


44 




JSR 


SV1TE5~5 


87 


SI A 


HGKH 


3 * DOUBLE. HASD.COPIS.nGR * 


45 




JSR 


DCADBE 


88 


LDA 


HGRL 


4 » POUR SEIKOSm CP-500AS * 


46 




LDA 


t$DO 


83 


CLC 




5 * SOR APPLE//C ' 


47 




STA 


C0MPT5 


90 


ADC 


t$80 


If * 




w 


48 


DEBVT 


STA 


HGRL 


91 


STA 


HCRL 


7 » 




A 


49 




SSR 




32 


BC$ 


3B 


B * FfiR J-M 


ROULON 


50 




JSR 


DPOS 


93 


DEC 


HGRH 


9 * 






51 




LDA 


tsoo 


94 BB 


LUA 


HGRH 


10 * LE 23/JANVIBR/lS3e 






JSR 


GOVT 


95 


STA 


HGRTAMP 


11 • 






53 




LDY 


tsoo 


96 


DEC 


COMPT2 


22 • • »*****************«**** * 


5i 




LDX 


t$00 


97 


miE 


32 


13 






55 




LDA 


t$03 


98 


LDA 


HCRL 


14 






56 




STA 


COMPTl 


93 


SEC 




X5 HtHtr*-*-rt-ir****n-**irjt*iifjt* 


57 


m 


IDA 


PAGE 


100 


SBC 


4$2S 


1€ * LES ADRESSES * 


Sfl 




sm 


HGRH 


101 


STA 


HGRL 








53 




STA 


HGRTAMP 


ioa 


DEC 


COHPTl 










18 OUTPORT 


EQU 


$F£95 


60 




LDA 


t$08 


103 


BNE 


Bl 


19 OOVT 


EQU 


$FDED 


61 




STA 


C0MFT2 


104 


JSR 


FLIGNE 


20 NHCAR 


EQU 




62 


B2 


LDA 


f$08 


105 


LDX 


*$Q0 


21 






€3 




STA 


C0MPT3 


10€ 


CPX 


DOUBLE 


22 


ORG 


$6000 


64 




161 




SUITES 


23 






65 


* PROGRAMME- 


MAITRE * 


108 


JSS 


DLIGlfE 


24 HGRTAMP 


DS 


$01 


66 




^ ■^r * * * t it- Jt- lb it -t ^ 


109 


JSR 


DPOS 


25 TAm 


05 


$01 


67 




HEX 


AD "LDA" 


110 


LDA 


#$00 


2e WVBkSE 


DS 


$01 


ee 


HGRL 


HEX 


00 


111 


JBR 


COUT 


21 OOUBLB 


DS 


$01 


€9 


HGRH 


HEX 


QO 


IIZ 






28 CADRE 


DS 


$01 


70 




CPX 


I}JVESSE 


113 LIQME2 


LDA 


ADR}, Y 


2S POSJTlQli 


DS 


$01 


n 




BEQ 


SUITE 


114 


AND 


*$7E 


30 PAGE 


DS 


$01 


77 




EOR 


f$FF 


ns 


JSR 


COMPAR 


31 CQMPTl 


DS 


$01 


73 


SUITE 


AND 


i$7F 


lie 


JSR 


COUT 


32 C0HPT2 


DS 


$01 


74 




CFX 


DOUBLE 


117 


JSR 


COUT 


33 C0MPT3 


DS 


$01 


75 




BEQ 


AA 


lie 


STX 


NBCAR 


34 C0MPT4 


DS 


$01 


76 




JSR 


DHABD 


IIS 


IHY 




35 COHPTS 


DS 


$01 


77 


AA 


JSR 


COMPAR 


120 


cpy 


t$co 


3 6 AUHl 


DS 


$01 


VB 




JSR 


COUT 


121 


BWE 


LIGNE2 


3 7 ADUP 




$D1 


75 




STX 


NBCAR 


122 


JSR 


FLIGNE 



1 

a 
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123 


SUITES 


IfIC 


C0MPT5 


1 73 




JMP 


DEB3 


2P3 


JSR 


HCA nRF 


124 




LDA 


C0MPT5 


1 74 


RETURN 


CLC 




224 


RETOUR RTS 




12b 




CMP 


t?F8 


275 




BOR 




225 


****************** 


126 




BEQ 


FIK 


176 




CLC 




226 


* FIN DE LIGNE * 


127 




JMP 


DEBUT 


ITI 




ROR 


ADRl 


227 


****************** 


128 


FIN 


JSR 


nCADltK 


178 




srn 


AUR2, Y 


228 


ELlGNE LDA 


tsoo 


129 




RTS 




179 




IN¥ 




223 


J UK 


CUUT 


130 




IMS 




LDX 


f$00 


230 


CPX 


CADUE 


131 


SOUS -PROGRAMME * 


isX 




LDA 


ADRl 


231 


BEQ 


SU1TB5 


132 


• DOUBLE 


HARD 


.COPY.HGR r 


liz 




AND 


t$7F 


232 


LDX 


1507 


133 




1$$ 




JSR 


COMPAR 


233 


JSR 


BCADRE 


134 


DHARD 


STA 


TAMP 


IS4 




JSH 


CUUT 


234 


LDA 


f$00 


135 




LSA 


f ^ 1/1/ 


istn 








235 


JSR 


COUT 


136 




STA 


ADRl 


136 




236 


SUITES LDA 


t$03 


137 




CLC 




137 


* 


CQHPARAISON * 


23 7 


JSR 


COUT 


138 




LDX 


t$04 


188 


* AVEC 


Cm$ 19) SCHR$ 113) *■ 


238 


LDA 


i$37 


135 




STX 


C0MPT4 


189 


***************** ***i(if**ir 


239 


JSR 


GOVT 




DEBl 


DEC 


rfiMPT4 


13Q 


OOMPAR 


CMP 


t$09 


240 


LDA 


f$SO 






BBO 


SUl TEl 


191 




BEQ 


CC 


241 


JSR 


COUT 


1 43 




ROR 


TAMP 


192 




CMP 


t$OD 


242 


LDA 


t$OA 


143 




BCC 


CO 


133 




BNE 


00 


243 


JSR 


COUT 


144 




ROR 


J^Rl 


1 94 


CC 


Ann 


t?01 


244 


LDA 


f$OD 


J 45 








195 


DD 


RTS 




245 


JSR 


COUT 






ROR 


ADRl 


196 


****** ****»****ieiit****** 


246 


LDA 


if$DD 


147 




JMP 


DEBl 


197 


* INITIALISATION 


247 


JSR 


OUTPORF 




CO 


ROR 


ADRl 


198 


* DB 


L • IMPRimNTE * 


24S 


RTS 




1 49 




CLC 




199 


*********************** 


249 


****************** 


150 




HQH 


ADRl 


200 


DLIGNE 


IMA 


*?01 


250 


' LE CADRE 


* 


151 




JMP 


DEBl 


201 




JSR 


OUTPORT 


251 


it *■ it- *■ * * 


liZ 


SWITEl 


ROR 


TAMP 


202 




LDX 


tSOA 


252 


DCADRE LDX 


i$00 


1 53 




BCC 


SCO 


203 




LDA 


INITCAS, X 


253 


CPX 


ChDRE 


154 




ROR 


ADBl 


204 




JSB 


cauT 


254 


BEQ 


RETURN2 


UJ 




SEC 




205 




DEX 




255 


JSR 


DLIGHE 






ROR 




20S 




BNE 


BLiaifB 


256 


JSR 


DPOS 


xjr 




JMP 


DEB2 


207 




RTS 




257 


LDX 


tl94 


153 


SCO 


noR 


ADRl 


208 


**ir*»«-*jrii-*****ir*-**«» 


25B 


JSR 


aCADRP. 


159 




CLC 




209 


• FOSll'lUN " 


259 


CPX 


DOUBLE 


3 fix 




ROR 




210 




ET 


* 


260 


BEQ 


FLICNE+5 


1 61 


DEB2 


STX 


C0MPT4 


211 




CADRE 


A 


2€l 


LDX 


il92 


162 


DEB3 


DEC 


CaMPT4 


212 


******************** 


2S2 


JSR 


BCADRE 


1 ^3 




BEQ 


RETURN 


213 


DPOS 


LDX 


FOSITIOti 


2 $3 


JMP 


FLJCNE+5 


164 




R(St 


TAMP 


214 


BROS 


BEO 


SUITE 4 


264 


RETURN2 RTS 




165 




BCC 


C20 


21 B 




LDA 


i$00 


265 


BCADRE LDA 


tS7F 


Its 




aw 




216 




JSR 


COUT 


266 


JSR 


CUUT 


167 




ssc 




217 




STA 


NBCAR 


267 


T.DY 


tsoa 


les 




SOR 




2ie 




DEX 




268 


STY 


HBCAR 


169 




.JMP 


DEB3 


21 9 




.JMP 


BPOS 


269 


DEX 




170 


C20 


ROR 




220 


SUITE4 


CPX 


CADRE 


270 


BNE 


BCADRE 


171 




CLC 




221 




BEO 


RETOVR 


271 


RTS 




172 




JIOR 




222 




LDX 


#f 07 


2 72 


BHD 





Programme 'COPIBHGR' 

Les * symboHseni dti espaces. 

5 HOME :T$(1} = "OPTIONS D ' IMPRESSION" :T$ 

(2) - ■' - "-T 

MPRIMER IJNE. VAGF. GRAPHTQUK'' ;A$ (2) = "CH 
ARGER Um PAGE GRAPHIQUE" :A$ (3) = "VOIR 
UNE PAGE GPJiPHIQUE":A$(4) = "LARGEUR D 
'IMPHSSSION ;" 

10 A$(5) = "NUMERO DU LECTEm-'--:":A$(6) 
- "MODE D'IMPRESSI0N"":":A$(7) = 'TOM 

ERO DE PAGE •:":A$(e) - "AVEC CADR 

E ";A$f9J = "POSITION fO/- 





■.":OP$(6} ^ "125": PRINT CHR$ (4 

) ; "BLOAD DHAJ?D" 
2Q DATA S,$,2f 4,6, 11, 13f 15,17, 13,21 
30 FOR 1=1 TO 2: READ Vt STAB 12: VTAB 
V: PRINT T$(I);: NEXT I: FOR I = 1 TO 9 
: READ V: HTAB 3: VTAB V: INVERSE : PRI 
NT I;: NORMAL : PRINT " - "jA${I): NEXT 
I: RESTORE 

40 GOSUB 80: GOSUB 400: GOSUB 500: GOSVB 
600: GOSUB 700: GOSUB 800: GOSUB 910 i G 
OSUB 70 

50 X = PEEK ( - 163B4) - 176: IF X < 1 OR 

X > 9 THEN 50 
60 POKE - 16368, 0: ON X GOSUB 100,200,30 



60 
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0, 400,300,600,700,800,900: G05UB 70: CO 
■TO 50 

70 V 11; FOR 1=1 TO 6: HTAB 30; VTAB V 
: PPTNT OPS(I) ;""":V = V + 2: NEXT I: 

HTAB 21; VTAB 21: PRINT LF$; '. RETURN 
30 FLASH : HTAB 5: VTAB 24: PRINT "APPUYE 

X SUR LE NUMERO DESIRE";: NORMAL : BETU 

RN 

100 CALL 24809: RETURN 

200 POKE 34,23: HOME : INPUT NOM ?:", 

m: PRINT CHRS <4);"BL0AD " ;N$; D"/ 
VAL (0P$(2)}/",A?"/AD; POKE 34,0: GOSU 
B 80: GOSUB .100: RETURN 
300 POKE - 16304, 0: POKE - 16297, Q: POK 
E - 16302,0: POKE - 16349,0: POKE - 
16343 + ASC (OP$(4}},0: GET R$ : TEXT 
: RETURN 

400 IF IM = 1 THEN 0P$(1) = "DOUBLE": POK 
E 24579, ItIM = 0;LP$ = "80)-": RETURN 
410 0P$(1} = "SIMPLE": POKE 24579, 0:IM = 1 



.■LP$ = "255)".- RETURN 
50 If' L = 1 THEN 0P$(2) = "2":L = 0: RET 
URN 

510 0P${2) = "1":X = 1: RETURN 

600 IF M " 1 THEN OP? (3) - "INVERSE": POK 

F. 24578, 1:M = D; RETURN 
610 0F$(3} - "NORMAL "r POKE 24578, 0:M - 1 

: RETURN 

700 IF F ^ 1 THEN 0P$(4} = -2": POKE 2458 
2,95:P = 0:AD = 4000: RETURN 

710 POKE 24582, 63:P = 1:0P$(4) = "1":AD = 
2000: RETURN 

800 IF C = 1 THEN OP? (5) = "GUI": POKE 24 
580, 1:C - 0: RETURN 

810 0F$(5) = "NOV"; POKF. 24580, QtC. = I : RE 
TURN 

900 POKE 34,23: HOME : INPUT -POSITION 

?;";0P$(6}: POKE 34,0: GOSUB 80 
910 POKE 24581, VAL (0P$(6)): RETURN 



Recapitulation 

VHARD' 



Apres avoir saisi c& code sous 
monlteuf, vaus le sauvegarderez par 
BSAVE DHGR,A$SOO0,L$2CO 
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FF 


FF 


00 


00 


FF 


FF 


00 


60 


£008- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 
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FF 


FF 


00 


00 


FF 


FF 


00 


uo 


co I8- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


60 20- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6028- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6030 


FF 


FF 


00 


00 


FF 


FF 


00 


QO 


6038- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6040- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6043- 


FF 


FF 


00 


00 


FF 


FF 


00 


an 


6050- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


605B- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


eoso- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


bObH- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6070 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6078- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6080- 


FF 


FF 
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00 


FF 


FF 


00 


00 


6083- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


6090- 


FF 


FF 


00 


00 


FF 


FF 


00 


QU 


6098- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


eOAO- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


60A8- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


60B0- 


FF 


FF 


DO 


00 


FF 


FF 


00 


00 


60B8- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


eoco- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 



60C8- 


FF 


FF 


no 


on 


FF 


FF 


00 


00 


souo- 


FF 


FF 


00 


00 


FF 


FF 


00 


00 


60D8- 


FF 


FF 


00 


00 


FF 


FF 


00 


50 


6QEQ- 


32 


09 


08 


44 


35 


09 


50 


37 


60E8- 


09 


20 


32 


62 


20 


6B 


62 


20 


60F0- 


92 


62 


A9 


DO 


8d 


OB 


60 


8D 


60FS- 


22 


bl 


20 


32 


^2 


20 


43 


62 


6100- 


A9 


00 


20 


BD 


FD 


AO 


00 


A2 


6108- 


00 


A9 


03 


8D 


07 


60 


AD 


06 


6110- 


60 


8D 


23 


61 


BD 


00 


60 


A9 


£119- 


08 


8D 


08 


60 


A9 


08 


SD 


09 


6120- 


60 


AD 


00 


00 


EC 


02 


60 


FO 


6128- 


02 


49 


FF 


29 


7F 


EC 


03 


60 


6130- 


FG 


03 


20 


38 


61 


20 


21 


62 


6138- 


20 


ED 


FD 


8E 


F9 


V7 


AD 


23 


614 0- 


61 


38 


E9 


04 


an 


23 


61 


CE 


ST48- 


09 


60 


DO 


D5 


AD 


00 


60 


8D 


6150- 


23 


61 


AD 


22 


61 


18 


69 


80 


6158- 


BD 


22 


61 


BO 


03 


CE 


23 


61 


6160- 


AD 


23 


61 


SD 


00 


60 


CE 


08 


61 68- 


60 


00 


Bl 


AD 


22 


61 


38 


E3 


$170- 


28 


8D 


22 


61 


CE 


07 


60 


DO 


62 78- 


95 


20 


5F 


62 


A2 


00 


EC 


03 


6180- 


60 


FO 


24 


20 


32 


62 


20 


43 


6198- 


€2 


A9 


00 


20 


ED 


FD 


R9 


OD 


6190- 


60 


29 


/F 


20 


27 


62 


20 


ED 


61 98- 


FD 


20 


ED 


FD 


8E 


F9 


07 


C9 


61A0- 


CO 


CO 


no 


EA 


20 


5F 


62 


EE 


61A8- 


OB 


60 


AD 


OB 


60 


C3 


FB 


FO 


61B0- 


03 


4C 


F7 


60 


20 


92 


62 


60 


6138- 


SD 


01 


60 


A9 


00 


HD 


OC 


60 


61C0- 


18 


A2 


04 


BE 


OA 


60 


CE 


Oh 



61C8- 


60 


FO 


19 


6E 


01 


60 


90 


OA 


61D0- 


tE 


UC 


60 


38 


6E 


OC 


60 


6C 


6100- 


CG 


61 


6E 


OC 


60 


IS 


6E 


OC 


61F.D- 


60 


4C 


C6 


61 


6E 


01 


60 


90 


61K8- 


08 


6t 


OC 


60 


38 


6A 


4C 


F6 


61F0- 


61 


6E 


oc 


60 


18 


6A 


8E 


OA 


61F8- 


60 


CE 


OA 


60 


FO 


11 


6E 


01 


6200- 


60 


30 


06 


6A 


38 


6A 


4C 


F9 


6208- 


61 


€A 


18 


6A 


iC 


F9 


61 


18 


6210- 


6A 


18 


6E 


oc 


bU 


99 


UD 


fsO 


6218- 


ce 


A2 


00 


AD 


oc 


60 


29 


7F 


6770- 


20 


27 


62 


20 


ED 


FD 


60 


cs 


6228- 


09 


FO 


04 


C9 


OD 


DO 


02 


69 


€230- 


01 


60 


AS 


01 


20 


95 


FE 


A2 


6238- 


OA 


BD 


DE 


60 


20 


ED 


FD 


CA 


6240- 


DO 


F7 


60 


AE 


05 


60 


FO 


OC 


6248- 


A 9 


on 


70 


F.n 


FD 


8n 


F9 


07 


6250- 


CA 


4C 


46 


62 


EC 


04 


60 


FO 


6258- 


05 


A2 


07 


20 


B2 


62 


60 


A9 


6260- 


00 


20 


ED 


FD 


EC 


04 


60 


FO 


6268- 


OA 


A2 


07 


20 


B2 


62 


A9 


00 


6270- 


20 


ED 


FD 


A9 


09 


20 


BD 


FD 


6273- 


A9 


37 


20 


ED 


FD 


A9 


50 


20 


6260- 


ED 


FD 


A3 


OA 


20 


ED 


FD 


A3 


£288- 


OO 


20 


ED 


FD 


A9 


00 


20 


95 


6290- 


FE 


bU 


A2 


VO 


EC 


04 


60 


FO 


6298- 


13 


20 


32 


62 


20 


43 


62 


A2 


62 m- 


r.2 


20 


R7 


62 


EC 


03 


60 


FO 


62A8- 


88 


A2 


CO 


20 


B2 


62 


4C 


64 


6250- 


62 


SO 


A9 


7F 


20 


ED 


FD 


AO 


62B8- 


00 


8c 


F9 


07 


CA 


DO 


F3 


60 



= On ne peut 'BRUNer' ce programme. ORG^2457€ (=$6000) poke org+4,0 

£ aj Darrs la pratique, pour imprimer la page bt.oad dhgr,a24576 POKE ORGi-5,0 

E ■% graphique 1 en normal, double, sans poke org+2,o poke org+6,32 

Q*' cadre, a gauche, vous ferez : poke org+3,1 call org+233 
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NCR 65C02FI 
609-03801 13 
F8 15598 
88509 • 




Pascal 
Cantot 



Lcs posscsseurs d'un Apple lie 
ancien module (avec microproces- 
seur 6502) qui souhaitent le 
moderniser et le rendre 
compatible avec le //c peuvent 
acheter un "kit de mise a niveau 
65C02". II leur en coiitera 
1000,00 V environ, mais apres, 
6! merveille. .. 

j^pistole lie et corapagnie vous 
moiitrcnt plein de petites ic6nes 
en mode texte, et, pour les 
assemblistes inveteres, ProCODE 
vous pcrmet d'employer 27 
Tiouvelles instructions, et 2 
nouveaux modes d'adressage eu 
langage machine, renouvelant 
aiiisi le plaisir de la program - 
mation en assembleur. 

Tout serait pour Ic micux dans le 
meilleur des mondes possibles si 
toutefois la 'documentation' 
fournie avec le kit 65C02 
depassait le stade de riiistallation 
de ce dernier... Le but de cat 
article est dc faire le tour des tr^s 
interessantes possibilites de ces 
nouvelles ROMs. Notez que cela 
conccmc aussi les possesseurs de 
fic. . , Pour la liste des differences 
entrc les ROMs Basic el F8, vous 
pouvez vous reporter a I'article 
d'Yvan Koenig public dans le 
numero 21 de Pom's, 

Commen^ons par le microproces- 
seur. Celiii-ci est maintenant un 
CMOS 6502, ou 65C02 (Metal / 
Oxyde / Silicium, alimentation 
Complgmentaire). technologie 
permettant une faible consom- 
mation (4 mA). 

Nouvelles 
instructions 

-BRA (B Ranch Alv^ays) : 
branchement inconditionnel. 
Prend 2 cycles (3 si 
changement de page). 

• DEA (DEcrement Accumu- 
lator) : retranche 1 au contenu 



de i'accumulateur. AgiL sur N 
et Z. Duree : 2 cycles. 
INA (INcrement Accumu- 
lator) : ajoute 1 au contenu de 
I'accumulateur. Agit sur N et 
Z, 2 cycles. 

PHX {PusH X on stack) : 
met le registre X sur la pile. 
N'affecte pas Ic registre d'etat. 
Prend 3 cycles. 

PHY (PusII Y on stack) : met 
le registre Y sur la pile. 3 
cycles, 

PLX (PulL X from stack) : 
met I'octet situe au sommet de 
la pile dans X et decrementc Ic 
pointeiu" de pile S. Prend 4 
cycles, et agit sur N et Z, 
PLY (PulL Y from stack) : 
met I'octet situe au sommet de 
la pile dans Y et decremente S, 
4 cycles. Agit sur N et Z. 
STZ (STore Zero) : met £l 00 
I'octet situe a I'adresse 
specif ice. N'affecte pas le 
registre d'etat. "STZ abs" 
prend 4 cycles, "STZ zpj;" 3 
cycles, "STZ zpg,X" 4 cycles, 
"STZ abs.X"' 5 cycles. 
TRB (Test and Reset memory 
Bits with accumulator, ouf !) : 
les bits 6 et 7 de la memoire 
sont copiei! dans V et N 
(comme pour BIT), puis les 
bits £l 1 dans I'accumulateur 
mettem ^ zero les bits de meme 
rang dans la memoire 
CM<-A'^M). Par exemple, si 
A = %100I011i ct ADR 
contient % 10 101 010, TRB 
ADR donne N=l, V=0, ADR 
contient %00101000. TRB agit 
sur N,V,Z. "TRB abs" prend 6 
cycles et "TRB zpg" 5 cycles. 
TSB (Test and Set memory 
Bits with accumulator) : les 
bits 6 et 7 de la memoire sont 
copies dans V et N, puis les 
bits S 1 de Taccumulateur 
mettent a 1 les bits correspon- 
dants de la memoire 
(M<-AvM). N,V,Z sont modi- 
fies. "TSB abs" prend 6 cycles 
et "TSB zpg" 5 cycles. 



Nouveaux 

modes d'adressage 

Indirect page zero 

Exemple : LDA ($06) charge 
raccumulateur avec le contenu de 
I'adresse qui se trouve au 
double-octet (ordre L,H) specifle, 
C'est Equivalent a "LDY #$00 
puis LDA (zpg),Y", mais 
nettement plus pratique ! Avec ce 
mode d'adressage, CMP prend 2 
cycles, et ADC, AND, EOR, 
LDA, ORA, SBC, STA, 5 
cycles. Par exemple, s'il y a $01 
en $B8 et $08 en $B9, "LDA 
($B8)" executera "LDA $0801". 



Lbs 27 novv&aux 
codes 



4 

1 » 
3 A 
€2 
7C 
9C 
DA 
OC 
IC 
3C 
C4 
8 
9E 
T2 
1 2 
32 
42 
7 4 
3 9 
B2 
FA 
1 4 
3 4 
5 A 
7 A 
32 
D2 



•.TSB 

UNA 

:!:>EA 

:ADC 

:JMP 

:S T Zi 

:PHX 

;TS B 

.••TRB 

:TRB 

:STZ 

:BRA 

:STS 

: SBC 

:ORA 

■.AND 

:KOH 

:S T Z 

:B X T. 

:I.DA 

'PLX 

:TRB 

:B I T 

:PHY 

tS TA 
•.CMP 



^P9 



abs 

a b s 
aba 
abs , X 

ahs , X 
(zpg) 

( ^pg) '■■ 
{^pg} 

7 : :: . 



(^pg) 
(xpg) 



62 
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Indirect indexe absolu 

Nc s'appliquc qu'& rinstruclion 
JMP abs(md,X). X est ajoute k 
"ind*. et on effectue un JMP 
I'adresse contenue dans le mot de 
16 bits pointe par le resultat. Ce 
mode d'adressage est trfes 
pratique pour gerer des tables 
d'adrcsses dc sous-progiatniiies, 
par exemple dans les amper- 
interpreteuTs... Cette insmiction 
JMP prend 6 cycles. 

Notons qu'S la difference du 
6502, dans le cas d'un JMP 
indirect du type "JMP ($xxFF)", 
I'adresse de la page augmente 
d'un et cela ajoute un cycle k la 
duree de Tinstruction 65C02 (ce 
n'etait pas le cas avec le 6502). 

Autrcs differences 

Voiia pour les nouveUes instruc- 
tions. Mais ce n'est pas tout.. . En 
effet, la gestion des intemiptioTis 
a quelque peu changee : avec le 
6502, aprds un BRK, le vecteur 
d'iiiterruption est charge dans le 
compteur ordinal et le vecteur 
BRK est ignore. Avec le 65C02, 
le BRK est execute, puis 
rintemiption est executee. 

Enfin, une demiere difference 
pouvant poser quelques problfe- 
mes : les codes inutilises. En 
effet, n y a 256 codes d'instruc- 
tions machine possibles, mais 
seulement 178 sont utilises. Avec 
le 6502, les codes inconnus 
etaient interpretes de fag on 
hasardeuses. Ceitains donnaient 
de nouveUes instructions (Ce bug 
a d'aUleurs ete exploite par Apple 
h I'adresse $FAF4 de la ROM de 
I'ancien fie), d'autres plantaient 
carreraent I'Apple, Avec Ic 
65C02, toutes les instructions 
inconnues sont interpretees 
comme des NOP (pas d'opera- 
tion). Mais, selon le code, 
I'instruction aura 1 , 2 ou 3 octets 
et durera de 1 & 8 cycles : 

CODE OCTETS CYCLES 

X2 2 2 

X3,X7,XB,XF 1 1 

44 2 3 

54,I>4,F4 2 4 



5C 3 8 

DC,rC 3 4 

A' = chiffre /lexaddcimal 
guslconqae 

Si vous ne recherchez pas la 
compatibilite totale avec les 
versions passees et k venir du 
6502, vous pouvez utiliser ces 
pseudo-NOPs comme tcmporisa- 
teurs (par exemple dans une 
routine de 'timing' pour recriturc 
d'octets sur une disquette). 

Et voil& ! Nous avons fait le tour 
des principales differences du 
65C02 par rapport au 6502. 
Notons qu'il y en a d'autres de 
moindre importance, comme la 
gestion du mode decimal et 
ceitains protocolcs 'hardware'. . . 



La ROM video 




Plusieurs modifications ont ete 
appon^es. Tout d'abord, vous 
avez maintenant h. votre disposi- 
tion 32 caracteres graphiques, qui 
sont decrits h la page 4 du manuel 
du kit. L'envoi d'un 

CHR$ (27) 

commute (^ condition evidem- 
ment que la carte 80 coloiuies soit 
active, ou encore que le jeu de 
caractferes altemes soit commute 
par unc ecriturc k I'adresse 
SCOOh') ces caracteres i la place 
des majuscules invcrsccs (codes 
$40 ^ $5F), d'ou les signes 
^tranges qui parasitent la ligne 
d'etat de votre traitement de texte 
favori, ou le cuiseur du tableur si 
indispensable k votre travail. . . 
Pour obtenir ces caracteres, 
essayez le petit programme 
suivant : 

10 PRINT CHR$ (4} "PR#3" 

20 PRINT CHR$(27): INVERSE: 

REIM Commute I'affichage 

des i cones 



30 FOR I = 64 TO 95: PT?TNT 

I,-" - ";CHR$(I), 
40 NEXT: PRINT: NORMAL 
50 PRINT CHR${24): HEM 
Revient au mode 
d'affichage normal. 

JoH, n'est-ce pas ? Mais il y a 
deux problcmes qui se posenl : 
imperativement, dans un pro- 
gramme machine ayant ses 
propres routines d'affichage, les 
majuscules inverses doivent 
utiliser les codes ecran $00 h 
?1F... De plus, la tnfalite des 
progiamrnes de hardcopy d'ecran 
texte risquent de donner des 
r^sultats bizarres avec un ecran 
plein d'ic6nes... 




Les modifications ne s'anStent 
pas la. La commande ESC R a etc 
supprimee (vous en comprendrez 
la raisou plus loin), et on a 
implant! une nouvelle 
commande : ESC D (tap^e AU 
CLAVIER) permet de filtrer les 
caractferes de controle envoyes 5 
I'ecran, exccptes CTRL-G (bell), 
CTRL-H (bacVspace), CTRL-J 
(liae feed) J CTRL-M (carriage 
return, si, si !}. C'est tr^s utile 
par exemple lorsque Ton regoii 
des codes heteroclites via 
I'interface sfirie, et que I'on veut 
eviter qu'il y ait le fouillis sur 
I'ecran (passage de 80 en 40 
coloiines, passage en inverse, 
etc.). On revient au mode 
nornisl par ESC B. 

^galement, pour ceux qui 
n'auraient pas remarque, I'affi- 
chage en 80 colonnes a ete 
notablement acc^li^r6 (30%), et le 
vilain 'scrolling' qui autrefois 
rendait une ligne de programme 
iUisible du fait de son defilement 
en zig-zag est maintenant 
impeccable. 

De plus, sous Pascal UCSD, en 
envoyant un CTRL-F k I'ecran, 
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on supprime I'affichage du 
curseur, ce qui permet d'accelerer 
I'affichage sous Pascal de 30 
autres % (il cn a bicn bcsoin !), 
CTRL-E fait revenir le 
sympathique rectangle sur votre 
moniteur... 

COUTl ($FDFO) et KEYIN 
CSFDIB), qui n'etaient pas 
compatibles avcc le mode 80 
colonnes, le sont desormais. La 
routine SETVID ($FE93) 
deconnecte maintenant I'affichage 
80 colonnes. 




Le moniteur 

II accepte desomais TOUTES les 
commandcs cn minuscules com- 
me en majuscules. De nouveiies 
fonctions sont appaxucs : 

Entree de codes ASCII 

11 est possible d'entrer des codes 
ASCII & la place d'un ou 
plusieurs octets en ecrivant ('*) 
(oil * est le caract^re) i la place 
dcs deux chiffres hexadecimaux. 
Parexemple "400: 'B 'A CI CT 
fera apparaltre "BABA" cn haut 
de recran (s'il n'y a pas de 
'scrolling' bien sur). 

Recherche d'un 

ou de deux octets 

Pour rechercher le nombre de 1 6 
bits LLHH entre les adresses 
"debut" et "fin", on ecrit 
"HHLL^debut.fin" (notez I'm- 
version de HH et de LL). Par 
exemple, "'K'O<80l.4000S" 
recherchera "OK". Si on ne 
specifie qu'un seul octet, ce sera 
cet octet et seulement lui qui sera 
recherche. Ainsi, "60<F800. 
FFFF" affichera I'adresse de toirs 
les RTS de la ROM F8. 



Mini-assembleur 

Mais oui, vous ne levez pas ! II 
est revenu... et c'est toujouxs Ic 
depuis 10 ans Autrerrent 
dil : il n'asseuible pas, helas, les 
codes mnemoniques 65C02. Tout 
comme la fonction 'List' du 
nouveau moniteur du //e ne 
desassemble pas les codes 
65C02... Apple a apporte de tres 
interessantes ameliorations, mais 
aurait pu faire un effort de ce 
cote ! 

Bon, c'est tout de meme mieux 
que rien. Les nouveiies 
instructions du 65 CO 2 ne sont 
pas irremplagables... Pour entrer 
dans ie mini-assembleur, vous 
tapez "!". Le prompt du moniteur 
(*) se change en (!). La syntaxe 
est la suivante: "HHLL:instr". Si, 
& la place de I'adresse 
d'assemblage HHLL, vous tapez 
un espace, le code sera implante a 
la suite de la demiere instruction 
assemblee. Le resiiltat de 
I'assemblage est affiche 
imraediatement. Toute erreur est 
signalee par un son de cloche e: 
un pointeur (^) indiquera la 
position de rerreur. Exemple : 

VniLS fapez : 

! 500:PHA 
! LDA #'Z 
I JSR $FDED 
! PLR 
! RTS 

Vous voyez : 

0300- 48 PHA 

0301- A9 DA LDA #$DA 
0303- 2 ED FD JSR $FDED 

0306- 68 PUi. 

0307- 60 RTS 

Notez que Ton ne pent pas enuer 

des commandes du moniteur 

lorsque Ton est dans le 

mini-assembleui. 

On revient an moniteur en tapant 

<Retum> k vide. 



Le Basic Applesoft 

Celui-ci accepte instructions et 
variables en minuscules, qui 
seront automatiquement conver- 
ties en majuscules. Saluons cette 



amelioration qui fait que, sous 
ProDOS, on pent entrer 
n'importe quelle commande 
(SED, Basic, Moniteur) 
indifferemment en majuscules ou 
en minuscules. Finie la 
gymastique du "CAPS LOCK" ! 
Cela, ajoule a I'amcUoration du 
clavier, apporte un grand confort 
d'utilisation. . . 



Mis a part cela, les routines 
"tabulantes" du Basic Applesoft 
fonctiomient maintenant parfaite- 
ment en 80 colonnes. II s'agit de 
HTAB (on peut enfin ecrire 
"HTAB 60" sans provoquer un 
resultat aleatoire !), TAB, SPC et 
la virgnle de tabulation dans les 
PRINT. 

Remarquons qu'aucun effort n'a 
ete fait pour rajouter des 
instructions, ou pour en enrichir 
d'autres (par exemple pour 
I'utiiisation de la double 
resolution), et que les "bugs" 
cel&bres sont meme restes, tels 
celui de la virgule de tabulation 
(cela aurait requis le changement 
d'un seul octet), ou celui du 
GOTO/GOSUB 440XXX. . . 



Pascal 

Outre les fonctions CTRL-F et 
CTRL-E decrites plus haut, et le 
rejet du code pcrmettant de passer 
en 40 colonnes sur I'Apple Pascal 
1 . 1 , la grande nouveaute est que 
la nouveUe ROM moniteur peut 
demarrer le Pascal depuis un 
autre pcripherique qu'un DISK II 
dans le slot 6. II est done 
desormais possible de demarrer 
depuis un UNIDISK 11, nn 
PROFILE, etc. 



Nous avons fait le tour des 
specificites de la nouvelle ROM 
qui, malgre de nombreuses 
lacunes, represente neanmoins un 
net pTogr^s par rapport a 
I'ancienne. 



Pom's n 24 




Philippe 
Krepper 



Quelques notes : 



Ce petit jeu d'adresse 
peut tourncr sur 
n'importe quel type 
d' Apple ; il s'agit, avec 
un serpent, de 'manger' des 
pomraes representees par un petit 
carr^ sur I'ecraii. Suivant le 
nombre d'erreurs deji commises, 
chaque prise rapportc dc un 4 
trois points. 



Si le serpent heurte le bord de 
I'ecran, ou se touch© lui-meme, il 
commet une erreur. Au-deli de 
trois crreurs, il est disqualifie (et 
vous avec !). 

Pour deplacer le serpent, utilisez 
les filches droite et pauchc. 
Attention, il faut raisonner 
comme si vous vous trouviez k la 
place du serpent et done le diriger 
en consequence. 

Enfin, pour corser ITiistoire, le 
serpent s'agrandit k chaque 
prise... 

a 



Le programme se sen de I'espace $800 d $BFF 
pour stacker une table d'adresses HGR qu'Ll cree 
lui-meme. 

Le score du jeu est stacker sur la disquette en 
piste $1], secteur $0, octet 4 et 5, emplacement 
inutilise (cf. manuelDOS). 

Pour eviter les problemes avec d'autres 
programmes qui utiiiseraient cene adresse, laissez 
ce jeu seul sur sa disquette. 



Comment faire ? 

Vous disposez de la disquette d'accompagnement. faiies 
simplemem 'BRUN SNAKE'. 

Vttus tie disposez pas de r.ette disquette. alnrs vnus 
devrez: 

1 Saisir et sauvegarder SNAKE.OBJ. 

(C'est le programme objet cree par le source 
SNAKE.TXT). 

2 Saisir et sauvegarder SNAKEMASQVE. 

II s'agit de la representation memoirs d'un ecran texte. 
Bien sur on ne peut le saisir directement d I'adresse 
$400, vous le saisirez a partir de I'adresse $1000. 

3 Saisir et sauvegarder SNAKEFUSION, 

Ce pro gramme charge SNAKE. OBJ . 
SNAKE.MASQUE dans la memoire ecran et sauvegarde 
le tout sous la forme d'un fickier executable nomm4 
SNAKE 

4 Pour toutes les utilisation ulterieures, il suffira de taper 
•BRUN SNAKE' 



Source 'SNAKE.TXT 

Assembteur USA 1.5 



1 




ORC 


?C00 


36 


LINPRT 


EQU $ED24 


2 


LGSNAJf 


EPZ 


?6 


31 


HGK 


EQU 


$F3E2 


3 


SENS 


BP2 


$7 


3S 


SPOSN 


EQU 


$F411 


4 


VISUAL 


EPZ 


?s 


33 


CLOCHE 


EQU 


^FBE9 


5 


POMMEL 


EPZ 


$s 


40 


PAUSE 


EQU 


$FCA8 


6 


pomEc 


EPZ 


?A 


il 


CHROUT 


EQU 


$FDED 


7 


DELAl 


EPS 


$B 


42 


/ INITIAETSATIC»] 


a 


SCORE 


EPZ 


$18 


i3 




JSR 


HGR 




IJTAB 


EPZ 


$24 


44 




LDA 


TEkTE 


JO 


LIGNE 


EPZ 


$2 6 


45 




LDA 


»$15 


11 


SNAKES 


EPZ 


$CE 


4G 




5TA 


tlTAD-i-l 


12 


TEMPO 


EPZ 


$D0 


47 




JSR 


$FC22 


13 


TEMPI 


EPZ 


$D1 


40 




LDA 


NONMXT 


14 


TEMP2 


EPZ 


$D2 


49 




LDY 


to 


15 


TEMF3 


EPS 


$D3 


50 




STY 


VISUAL 


16 


TEMP4 


EPZ 


$D4 


51 




STY 


TEMPO 


17 


RECORD 


EFZ 


$D6 


52 




STY 


COLOR 


la 


JPRWTS 


EQU 


$3D9 


53 








19 


UGRrsAS 


EQU 


$890 


54 




LDA 


#J 


20 


HGRHAU 


EQU 


$900 


55 




STA 


CMD 


21 


MASQUE 


EQU 


$A00 


56 




LDA 


#0 


22 


XD7 


EOU 


$BOQ 


57 




STA 


SECTEU 


23 


VOLUME 


EQU 


$B7EB 


58 




STA 


VOLUME 




P J.^TK 


EQU 


$B7EC 


59 




LDA 


i$12 


25 


SECTEU 


EQU 


$B7ED 


€Q 




STA 


PISTE 


2e 


cm 


EQU 


$B7F4 


61 




IDA 


iSECTOR 


27 


BUFFER 


EQU 


SB7F0 


€2 




STA 


BUFFER 


28 


TPUCBE 


EQU 


$C000 


€3 




LDA 


/SECTCR 


£9 


HAZKBD 


EQU 


$C01 


64 




STA 


BUFFER+1 


30 


SPEAKR 


EQU 


$C03C 


€5 




LDA 


»$B7 


31 


GRAPai 


EQU 


$L-05C 


66 




LDY 


i$E8 


32 


TEXTE 


EQU 


$C051 


€? 




JSR 


JPRKTS 


33 


mmxT 


EQU 


$C052 


68 




BCC 


NOT ERR 


34 


MIXTE 


EQU 


$€053 


£9 




JMP 


$3D0 


35 


HAURES 


EQU 


$coy/ 


70 


WTERR 


LDA 


SECT0R+$4 
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65 



11 




STA 


RECORD 


132 




LDY 


TEMP 3 


196 


SENS 4 


DEC 


TEMP3 


261 


BIF? 


TXA 


72 




LDA 


SECTOH-^SS 


133 




LDX 


t$2F 


191 




JMP 


TSTPOM 


2 €2 




TAY 


13 




STA 


SECOKD±l 


134 




JSR 


CARRE 


198 


SENS3 


JJVC 


TEMP 4 


263 


BIEb 


LDA SPEAKR 


7i 








135 




INC 


TEMF3 


199 




JMP 


TSTPOM 


264 




DEY 


15 




LDA 




136 




BNE 


CAD8E1 


200 


SENS2 


INC 


TEMP3 


265 




BNE S IR 8 


7€ 




STA 


$3F2 


137 


VRTCAL 


LDA 


t$2E 


201 




JMP 


TSTPOM 


266 






11 




LDA 


/RESET 


138 




STA 


TEMF3 


202 


SENSl 


DEC 


TEMP4 


267 




'mt 


IS 




STA 


$3F3 


139 


CADRES 


LDX 


TEMP3 


203 


TSTPOM 


LDX 


TEMP3 


268 


BIP9 


DEY 


79 




EOR 


f$A5 


140 




LDY 


to 


204 




LDY 


TEMP 4 


269 




BNE BIP9 


80 




STA 


?3F4 


141 




JSR 


CARRE 


205 




CPX 


POMMEL 


270 




LDY i$20 


81 


.•CREATION 


TABLE 


142 




LDX 


TEMP3 


206 




BNE 


TSTVID 


271 


BIPIO 


LDA SPEAKR 


MASQUE ET XD7 


143 




LDY 


t$3F 


207 




CPY 


POMMEC 


212 




DEY 


82 


INITl 


LDX 


TEMPO 


144 




JSR 


CARRE 


208 




BNE 


TSTVID 


273 




BNE BIPIO 


83 




LDA 


*0 


145 




DEC 


TEMP3 


200 


MANGE 


INC 


LGSNAK 


274 




LDY t$20 


84 




TAY 




146 




BNE 


CADRB2 


210 




JSR 


ALLONGE 


215 


BIPll 


DEY 


85 




JSR 


HPOSN 


141 








211 




JSE 


PLACE 


276 




BNE BIPIl 


86 




LDX 


TEMPO 


148 


DEBUT 


LDA 


t2 


212 




DEC 


DELAI 


217 




INX 


87 




LDA 


$ES 


149 


; LONGUEUR DU SNAKE 


213 




LDA 


i$15 


27 S 




BNE BTP7 


88 




STA XD7,X 


150 




STA 


LGSNAK 


214 




STA 


HTAB 


219 




JSR KPRESS 


89 




LDA 


$30 


152 




STA 


TEMP3 


215 




CLC 




280 




DMI FINTST+3 


90 




STA MASQUE, X 


152 


BCLOl 


LDX 


TEMP3 


216 




LDA 


SCORE 


281 


,-FIN D 


'UNE P ARTIE 


91 




DEC 


TEMPO 


153 




LDA 


t$10 


217 




ADC 


SNAKES 


282 


FIN 


LDY i$40 


92 




3NE 


INITl 


154 




STA 


SNAKEC, X 


218 




STA 


SCORE 


233 


BIPl 3 


STY TEMPS 


93 


; CREATION TABLE 


155 




LDA 


TEMPS 


219 




3CC 


LDXSCO 


284 


BIP14 


TYA 


HGRBAS ET HGRHAU 


156 




STA 


SNAXEL, X 


220 




INC 


SCORE+1 


295 




TAX 


94 


IMIT2 


LDA 


TEMPO 


157 




TAX 




221 


LDXSCO 


LDX 


SCORE 


286 


BIF 15 


LDA SPEAKR 


95 




CMP 


i$CO 


158 




LDY 


fSlO 


222 




LDA 


SCORE+1 


237 




DEX 


OS 




BCS 


SUITE 


159 




JSR 


CARRE 


223 




JSR 


LINPRT 


288 




SNE BIP15 


97 




LDY 


#0 


160 




DEC 


TEMP3 


224 




LDY 


90 


?89 




LDX TEMP 3 


98 




JSE 


HPOSN 


161 




BNE 


BCLOl 


225 


BlPl 


TYA 




290 


BIPl 6 


DEX 


99 




LDY 


TEMPO 


162 




JSR 


PLACE 


226 




TAX 




29} 




RNF BTP16 


100 




LDA 


LlCNB 


163 




bm 


43 


227 


B1P2 


LDA 


SPEAKR 


292 




DEC TEMP3 


101 




STA 


HGRBAS, y 


164 




STA 


SNAKES 


223 




DEX 




293 




BNE BIPl 4 


lot 




LDA 


LIGNEi-l 


165 




LDX 


fO 


229 




BNE 


BIP2 


294 




DEY 


103 




STA 


HGRHAU^ Y 


166 




STX 


HTAB 


230 




LDX 


#5-?0 


295 




BNE BIPl 3 


104 




INC 


TEMPO 


167 




SIX 


DELAI 


231 


BIP3 


DEX 




296 




LDA SCOREfl 


105 




BNE 


INIT2 


16S 




STX 


sroRF. 


232 




BNE 


BIP3 


291 




CMP RECORD+1 


106 


;RAZ DU TABLEAU 


169 




STX 


SCORE+1 


233 




INY 




Z9B 




BCC PAS.> 


ECRAil 






no 




INX 




234 




CPY 


i$80 


299 




BNE score:' 


107 


SUITE 


LDA 


#0 


1 /I 




STX 


SENS 


235 




BNE 


BIPl 


300 




LDA SCURE 


108 




STA 


TEMP3 


1 72 




JSR 


KPRESS 


236 


BIP4 


LDX 


iSlO 


301 




CMP RECORD 


109 




STA 


TEMP4 


113 




LDA 


GRAPUI 


237 


BIP5 


LDA 


SPEAKR 


302 




BCC PAS.> 


110 


I NIT 3 


LDX 


TEMP 3 


174 




LDY 


f$23 


233 




DEX 




303 


5CORE> 


LDA t$24 


111 




cpx 


is 30 


llh 


MESS 


LDA 


MESS AG, Y 


239 




BNE 


BIF5 


304 




STA HTAB 


212 




BCS 


NEXT 


17S 




JSR 


CMQUT 


240 




TYA 




305 




LDX SCORE 


113 




LDY 


TEMP 4 


111 




DRY 




241 




TAX 




306 




STX RECORD 


Hi 




JSP 


CARRE 


lis 




BPL 


MESS 


242 


BIFB 


DEX 




307 




LDA SCOREfl 


115 




INC 


TEMP3 


179 




LDA 


t$24 


243 




BNE 


BIPB 


308 




STA RECORD-H 


lie 




3NE 


INIT3 


180 




STA 


IITAB 


244 




DEY 




309 




JSR LINPRT 


217 


NEXT 


LDA 


iO 


181 




LDX 


RECORD 


245 




BNE 


BIP4 


310 




LDX /3 


213 




STA 


TSMP3 


182 




LDA 


RECORDfl 


24S 




JMP 


FINTSTI3 


311 


BIP12 


LDA t$SO 


119 




INC 


TEMP4 


183 




JSR 


LINPRT 


247 


TSfVID 


JSR 


CLCkDR 


312 




JSR PAUSE 


120 




LDA 


TEMP4 


184 


;BOUCLE D'UNE 


248 




LDA 


(TEMPO) , 


Y 313 




LDY i$FF 


121 




CMP 


*$40 


PARTI E 






24 9 




BNE 


CRASH 


314 




JSR CLOCSE 


122 




acc 


IMIT3 


185 


JEU 


LDX 


SNAKEL1-1 


250 




JMP 


FINTST 


315 




DEX 


123 


; TRACt 


DU CADRE DE 


186 




STX 


TEMP 3 


251 


; PTANTF. 




316 




BPL BTP12 


L 


•ECRAN 






287 




LDY 


SNAKEC+2 


252 


CRASH 


DEC 


SNAKES 


31 7 


PAS.^ 


LDA TEXTS 


124 




LDA 


«0 


2 8& 




STY 


TEHP4 


253 




LDA 


SNAKES 


1.1 




INC COLOR 


125 




STA 


TEMP3 


1B9 




LDY 


Si;NS 


254 




ADC 


#7 


319 




LDX POMMEL 


126 




DEC 


COLOR 


2 90 




DEY 




255 




STA 


HTAB 


320 




Lpy POMMEC 


121 


CADRE! 


LUX 


TUMP'J 


2 91 




BEQ 


SENSl 


256 




LDA 


#" " 


321 




JSR CARRE 


229 




CPY 


i$40 


192 




DEY 




257 




JSR 


CHROUT 


322 




LDY LGSNAK 


129 




BCS 


VRTCAL 


193 




BEQ 


SENS2 


258 




LDA 


SNAKES 


323 




STY TEMP3 


130 




LDX 


»0 


194 




DEY 




259 




BEQ 


FIN 


324 


EFFACE 


LDY TEMP3 


131 




JSR 


CARRE 


195 




BEQ SENS3 


260 




LDX 


fO 


325 




LDA SNAKELrY 



66 
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326 




TAX 




380 


ALLONG LOT 


LI3SNAK 




423 




ASL 


TEMFQ 


431 




IN¥ 




327 




LDA 


SNAKEC, Y 


381 


BCL03 LDA 


SNAKEL- 


Ir 


r 430 




ROL 


TEMPI 


482 




CPY 


#5 


326 




TA? 




382 


STA 


SNAKEL, 


Y 


431 




ASL 


TEMPO 


483 




BCC 


STKSNS 


329 




JSR 


CTIRRE 


383 


LDA 


SNAKEC- 


1. 


Y 432 




POL 


TEMPI 


484 




DRY 




330 




DEC 


TEMP3 


384 


STA 


SNAKEC, 


Y 


433 




ASL 


TEMPO 


405 




DEY 




332 




BNE 


EFFACE 


38,5 


HEY 






434 




ROL 


TEMPI 


486 




DEY 




332 




DEC 


COLOR 


386 


BNE 


BCL03 




435 




ASL 


TEMPO 


4S7 




DEY 




333 




JMP 


DEBUT 


3S7 


LDX 


TEMP-} 




436 




POL 


TEMPI 


488 


STKSNS 


STY 


SENS 


334 


f 






388 


STX 


SNAKELi-1 


437 




ASL 


TEMPO 


489 




RTS 




335 


Fimsi 


JSR 


DECALE 


3S5 


LDY 


TEMP4 




438 




ROL 


TEMPI 


490 


GAUCHE 


LDY 


SENS 


336 




LDA 


DBLAI 


3S0 


STY 


SNAKECtl 


439 




LDA 


^ECRAN 


491 




DEY 




337 




STA 


TF.MP3 


391 


JSR 


CARRE 




440 




ADC 


TEMPO 


492 




BNE 


STKSNS 


338 


SCL04 


JSR 


LITSNS 




RTS 






441 




STA 


TEMPO 


493 




MX 




339 




JSR 


LITSNS 


333 


■AFFICBE/EFFkCE UN 


44? 




LDA 


/ECRAN 


494 




ml 




340 




JSR 


LTTSNS 


CARRE EN LIGNE X 




443 




ADC 


TEMPI 


495 




JNY 




341 




JSR 


LITSNS 


COhOME Y. 






444 




STA 


TEMPI 


4 96 




TNY 




34Z 




JSR 


LITSNS 


3S4 


CARRE JSR 


CLCAVK 




445 




RTS 




437 




BNE 


STKSNS 


343 




JSR 


LITSNS 


395 


LDA 


COLOR 




44 6 


;BIP. . 


,BIP 




496 


,-ALHfME/ETETIVD UN 


344 




JSK 


1.1 TSNS 


3Sb 


STA 


(TEMFU) 


, Y 


44 f 


KFRESS 


LDA 


RAZKBD 


POINT LIGNE r 


345 




JSR 


LITSNS 


397 


TXA 






448 


REPEAT 


BIT 


TOUCHE 


COLOMR X 






34€ 




JSR 


LITSNS 


393 


ASL 






443 




BMI 


RETOUR 


433 


PLOT 


LDA 


HCRBAS, ¥ 


347 




DEC 


TEMP3 


399 


ASL 






450 




LDY 


f9 


500 




STA 


LIGNE 


34H 




BNE 


BCL04 


400 


STA 


TEMPO 




451 




JSR 


CLOCHE 


501 




LDA 


HGRKAU, Y 


3-39 




JMP 


JEU 


401 


TYA 






452 




LDA 


40 


503 




STA 


LIGNE+1 


J^V 


; PLACE 


UNE 


POMME 


4Q2 


ASL 






453 




JSR 


PAUSE 


503 


PLOTML 


LDA 


XD7,X 


351 


PLACE 


ADC 


$C060 


403 


ASL 






454 




JSR 


PAUSE 


504 




TAY 




3t>2 




ADC 


SCOO, X 


404 


STA 


TEMPI 




455 




BEQ 


REPEAT 


505 




HEX 


A3 


353 




TAX 




405 


LDA 


t4 




456 


.'BASCULE DE 


506 


COLOR 


HEX 


00 


354 




CPX 


f3 


406 


STA 


TEMP2 




L 


'AFFICHAGE DO 


507 




EOR 


(LIGNE) , r 


355 




BCC 


PLACE 


407 


CARREl LDY 


TEMPO 




S 


CORE SI 


ESC 




509 




AND 


MASQUE, X 


356 




CPX 


f$2D 


403 


LDX 


TEMPI 




457 


LITSNS 


BIT 


TOUCBE 


509 




EOR 


(LIGNE) , Y 


357 




BCS 


PLACE 


409 


JSR 


PLOT 




458 




BPL 


RETOUR 


510 




STA 


(LIGNE) , Y 


358 




ADC 


$CQ6Q 


410 


INK 






459 




LDA 


TOUCSE 


511 




RTS 




355 




ADC 


$000, y 


411 


LDY 


TEMPO 




4 60 




BIT 


RAEKBD 


512 


RESET 


LDA 


f2 


360 




mr 




412 


JSR 


PLOTML 




4 61 




CMP 


if 88 


513 




STA 


CMD 


361 




CPX 


«3 


413 


IliX 






4 62 




BEQ 


DROITE 


514 




LDA 


RECORD 


362 




BCC 


PLACE 


414 


LDY 


TEMPO 




463 




CMP 


i$95 


515 




STA 


SECT0R-i-$4 


363 




CPY 




415 


JSR 


PLOTML 




4S4 




SEQ 


GAUCHE 


516 




LDA 


RSCUKD-H 


364 




BCS 


PLACE 


416 


im 






465 




CMP 


isau 


517 




STA 


SECT0R■^$5 


365 




J3R 


CLCADR 


417 


LDY 


TEMPO 




466 




BEQ 


BASCUL 


51 If 




LDA 


i?B7 


366 




LDA 


(TEMPO) , Y 


413 


JSR 


PLOTML 




467 




CMP 


i$9B 


519 




LDY 


i$ES 


3S7 




BNE 


PLJiCE 


419 


INC 


TEMPO 




4 60 




BNE 


RETOUR 


520 




JSR 


JPRWTS 


3 S3 




STX 


POMMEL 


420 


DEC 


TEMP2 




469 


STOP 


JSR 


KPRESS 


521 




LDA 


t?6 


369 




STY 


POMl'lEC 


421 


BNB 


CARREl 




4 70 




BMI 


LITSNS 


522 




JMP 


$FE95 


370 




BEO 


CASRE 
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Micro-informations 

Jean-Michel Gourevitch 



Apple seradt-il done dcvcnu un 
constiucteuT de ntiCTO onJinateurE 
commc Ics oucres 1 U semble cn 
lous cas bien loin Ic icmps oii 
Steve Job* annonfait une 
nouvelle race de micro- 
ordinateurs. «for the rest of us*. 
Andy Hertzfeld, un des dSvelop- 
pcuiB du Macintosh et le pire du 
nuiii^iscui TliuudcniCBii, i'cApri- 
ntait i^ceimnent ainsi : «I>u icmps 
de Jobs, la missiOD d'Appie £tait 
de t«iidre les ordioatcurs 
acccssibles, maintenant, c'est de 
piot^ger ses acdomiaiies*. 

Aujourdliui, les fabiicanls des 
ordinatcuis h. la potnm« cmploietit 
les mSmes procedes (dkcutabks) 
que tons les outres constructcurs- 
En ;;uuiiiicn;atit par annoiKcr des 
pioduits indispoDibles. Aimonc^e 
en Janvier, la transformation des 
Macintosh en Macintosh Plus 
n'avait, en mat, £t£ rfalisec que 
pour une toute petite minoriti 
d'hetireux vejni^ds. Chez les 
(;unt;cssionnaires, loiaqu'on 
abordait le sujet^ les mines 
s'allongeaient... presque autant 
que les listcs d'attcilte. Les 
delais 7 Jiiillet, aoflt ? Certcs, le 
Macintosh «£t un euccts et il faut 
$'«n r^jouir il est viai, qu'i] est 
plus Tcniiiblc puur Apple dc 
vendre des Macintosli Plus 
eiitieis que des "kits" de mise 6 
niveau. 11 n'emp£chc : les 
candidate i la tranEfoimation I'ont 
trouvi plutit sauniMre. Au 
moins, ont-ils ainsi fpargn^s 
par les probltmes de compailbilicd 
qui ont alfecti les possesseuis de 
Macintosh Plus. A cause d'aboid 
d'un vilaiti "hua" dans le 
Syetime (version 3.1). Apple a 
du, en toute hJltc, livr«t une 
nouvelle version 0^ 3.1.1). En 
raison, ensuite, du fonction- 
neiTient meme du nouveau 
syKt^mc de hi^rarchisatian des 
ficKiers. Les gourous d'Appie 
avaicnl pouitant jur£ urbi et orbi 
Icvis Inlands dicux ijue tous 1«£ 
logiciels "tjden <lev*s" devaieitt 
fonctionner saiis bavures sui le 
Maciniosh Plus. Las ! L n'cn est 
apparemment rien. Pom's a 
rclevi, dans ce numiro, de 
nuiiibreux cxemplcs, voici done 
juste cluelques conseils supplt- 
raentaircs : 

- aux utilisateurs d'Excei : 
gaidcr tuus les docujneiits 11& 
dans le mime dossier, poar 
que les miscs h. jour se fassent 
bien aiuamatiquemcnt ; 

- aux udlisateui^ de MacDraw ; 
nc vous jtonnez pas de ne 
puuvoir afficher plus de 1 1 
polices dc caractires. Pas 
question de falic dcMcr cc 
menu ; 

- aux utilisateurs du Switcher ; 
ajoutCT 20Ko par appUcacion et 
places les luutcx dans le mftne 
dossier. 

Problimes de jeunessc, certes, 
mais qui pounatetit bien d^goCter 
ft jainais ceux qui ont oommenof 
Icui paicouis micro-informotiquc 
sur le Macintosh Plus. Demier 
exemplc du pcu de cas que 
semble faire Apple dc scs cEcnis : 



I'afTaife dti Tiouvean Macintosh 
S12Eo. Ce demier hchi dc 1» 
gemme Macintosh est sunplcment 
un Mac dc 512Ko do\i d'un 
lecteur Iniemc dc disquciics 
double face (SOOKo conire 400 
pour I'ancien) et de la nouvelle 
ROM de 128K{i. Par rtqipoTt au 
Macintosh Phis, il !ui manque 
done la memoire de 1 M^ga et 
I'interfatc SCSI pour disquc dtir. 
Aux £tats-Unis, il a dii anncmci 
au prix de doUars. Une 
bonne occasion, au couts du 
dollar, poui pcrmcttre aux moiiis 
riches de s'ltjuiper d'un Mac k 
15 000,00 F 7 Eh bien non, 
Apple Fiance n'entend pas le 
vcndre tnoins de 20 000,00 F. 
Cette f ois c'est pour pr&erver les 
marges des revcndeurs. Question 
au PDG d'Appie : et le client 
ajore ? Pounjuoi ne pas refaire le 
iiietne bon gcste effeetui en 
tarifsnl avantagcuscnicut chcz 
nous les m^es i niveau du Mac 
en Macintosh Rus 7 
Mnycnnant quoi, tout va tite bien 
pour Apple. Bien qu'elle ait 
diininu£ son chiffte d'effaijes, la 
flnnc a augment^ aux Etats Unis 
son beatdcc de 218%. La revue 
Mowoild, qui fait autorit* dans 
le mondc de la micro a salui 
rarriv^e du Macintosh Plus en k 
dotant d'une note de 7,7, en le 
"rccommandtuii KautcineM"^ et en 
cstimani qu'Applc pouvait 
d^Qimais attaquer de picdfenne 
Ic march4 tie I'entrcprise. 
On cantinue & Cupertino la mise 
au point du SuperMac, extemible 
(nom dc code Milwaukee, 
pTemiiie suitic, pcut £uc en 
septembic), du iBUvel Apple fl et 
de leuis pdiiphfriques conimuns 
(le nouvd Apple // sc vcrrait ainsi 
dot* lui aussi d'une interface 
SCSI). Du «6te du monde 
cxtfdcur, Maf;intosh devrait tr^ 
biem^t pouvoir fonctionner sous 
Unix, e£ on tcparle aux 
Etats-Unis d'une utilisation du 
MS Dos qui ne passerait^^ par 
I'interm&iiaiie d'un "Mac Charlie" 
(ccttc extension ginials transfor- 
manc le Mac en un vulgairc 
compatible IBM). 
Voil^ pour I'avenir. Le prfaeni se 
cofijugue pour le Macintosh gtSoe 
h dc nouveaux programme;. 
Apple salt que Ic dfvcloppcmcnt 
du logidel seiB d^sonuais capital 
et a dicid€ d'en confier la 
responsabiliti il Del Yocam, son 
directeur g^fral. TmiR axes, ce 
raois ci, pour les logicicls 
nouvcaux : la boulimic avcc Ic 
SCTvailt, la communication et 
I'idition dlectrcniquc. 



BouHmique 

C'est The SerTant (le 
serviteur), un duiiiestique dor£ 
sur tranches diveloppi pai Andy 
Hertzfeld ; ^ris son getiial nu- 
meriseuT d'images Thundeiscui. 
iJ ricidive avec ce nouveau 
logicicl "inti^ateui", qui pemiet 
d'uiilisei simultan^nicnt plusicuis 
logiciels et dc repasser dc I'ua k 
I'autre. ^ vous rappelle quclque 



chose 7 Et oui, The Servant 
rcsscmble ^ un Switcher m^n^ 
dc Finder. Avec quclquca details 
qui comptcnt : ce locciel (lescrvS 
au Macintosh Plus) utilise une 
m^oire cache de TOOKo. Q 
p«Tinet d'utiliscr commc fond du 
bureau des images numiris^ea, 
o« n'impoitc quel document 
MacPaint. Quand on ouvie un 
programme, le bureau ne 
disparait pas : Tap plication 
s'ouvre simplement dans une 
fenetie. On peut garder quatre 
fenctics ouvettes simultaniment. 

The Servant peimct dc lancer des 
lichcs de fond, c"est-4-dire de 
laisscr rordinateur s'occuper en 
artiire plan d'imprimer, ou dc 
recevoir un fichier par modem, 
tout en conscrvant la possibtliti 
dc travail tcr. The Servant est 
encore un prototype qui dcvrait 
£ti« lancf aux Etats-Unis en 
scptcmbre. 

Communication 

Echanger des donn£es entrc un 
Mac et un IBM 7 Facile avec 
MacLink de Datavlx. Ce 
logiciel campicnd deux 
disqucucs : I'une pour Ic Mac ct 
I'autie poui riBM (avec au 
moins l92Ko et deux Iccteurs) 
ainsi qu'un cible. On relic les 
deux machines par les sorties 
sfrics (ou un modem). oi^ les 
cbuKca Bc toiscnt, c'est quand cc 
logiciel peiraet de tiaduire les 
fichicis pour qu'ils solent 
utltisables sur Tune ou I'autre 
machine. Ainst, un document 
iciiX ave* Macwrit* peut Stie 
convcrti au format de 
Displaywiiie Wordstar uu 
Multimaie, et etre traits sur 
riBM. Bien 6vtderamenJ, 
Vinverse est Igalement passible. 
On pcut aussi licupeier une 
fcuillc dc calcuis constiuiU; avec 
Excel, Jazz ou Multiplan ct la 
rctravaillcr avec Lotus 1-2-3, 
Symphony, etc. Prix (avcc un 
cSble) : 1 5 S dollars. 

Pour les r£seaux locaux, void un 
logicicl transt'ormant un 
Macintosh en serveuT 
MacServe d'lofosphere. U 
a'utilise avec le i€seau Appletalk 
el un disquc dm Apple, ou un 
Hyperdrive. Un uiilisaieur du 
rdscau pcut aussi uhliscr les bases 
de donnfes multi-utilisatcurs 
(coimne Omnis 3 ou 4e 
Dimension), et se servir du 
disquc dur commc "spooler", 
pour ImprinieT sans immobiliscr 
rordinateur. Ihix : 250 dollars. 

Void encore Ses nbeaux Onminet 
(distiibuifs en France par Access) 
sur lesqueis on pcut connecter 



simultanemcnt des Macintosh et 
des IBM PC, (en tout 62 
micio-ordinateurs sur Unc 
distance de 1200 mities) udUsani 
les disqucs durs Corvus 
Omnidrive. Possibiliife, 14 aussi, 
dc partager les m£mes 
reEEourccs : fichiers, impriman- 
tes, disques durs. Une version 
Omnitalk pcnuct d'utilisci les 
disques durs en multi-uijlisaEcuis 
sur un T^au Appletalk. 

Edition 
electron ique 

C'est viaimcDt la demiirc foUe i 
la mode : aux ^ts-Unis, tes 
entreprises succombent aux 
charmes de I'^tion flccboilique. 
Certains utilisateurs coramcnccnt 
d'aiHeurs aussi i en 6prDUver les 
d£convenues : dffaut d'cncragc 
noiammcnt sur les imprimanlcs 
laser. U s'agirait d'un pTobl6me 
dH aux caitouchc£ dc recharge 
fabriqu^ par le japonais Canon- 
En attend^t qu'tl soit rigli, un 
programmes pcrmet dc cifer des 
polices de caiactfeics puur I'iiiipii- 
mante Laser, c'est Fonto- 
grapfaer d'Altsys, pennettant 
de dessiner des polices, de les 
manipuler (rotations, ombiages, 
etc.). Un outre logiciel ctii par 
Manhattan Graphics, rcditctir 
dc Ready Set Go, ct baptise 
Uesfc Design est tout 
sitnplement constitu£ de 
"templates", c*est-i-dir« de 
raaquettee deja pretee pour iditer 
une Icttrc d'information, unc 
brochure. . . Brcf, c'est du cI6s cn 
mains (pT^format^, avec 
carsctii«s sclecLiDnn£s) ok il ne 
reste plus qu'k ajouCer ie texte. 
Prix : 70 doUarx. BIP qui 
diatribue en Frencc Ready Set Go 
cn T^aUseia t-U unc VF 7 
Plusieui^ itvucs se sent t^^es, 
outre-Atlandque, exelusivement 
vou^cs k I'^dition ^leccronique. 
Panni etles : Publisb, iditi par 
le groupe publiant djj^ la revue 
Macworld. On tmuvc m£mc dca 
Itfons d'idiiion sur vidio- 
cassettes (malheureusemcnt illijti - 
bles k motns dc disposer d'un 
tnagnetoscope th-Ktandaid !}. 

Des lugiciels 
pour le Mac 

La decision d'Appie de ne plus 
livrer systimatiqueroent Mac 
Write avec le Maciutc^h Plus, 
pour Euscitcr la citation de 
logiciels dc traitement de i£Xie, 
commence k porter ses fruits. 
Voici, en provenance de Ckande 
Bretagne, MacAuthor, d'IcoD 
Technology, un tiaitement de 
LcAlc bvixtii d'idecs ingiiueusea 



Pom's n" 24 



pcimcnant notamment d'f crin 
colonnes (commc un logiciel 
d'idition elecironique) dc 
prfparer dts feuilles de style 
(comrne Word), auqucl ses 
premiers utilisateurs ne 
r«piochcnt qu'unc Icntcur 
sensible sunoui surle S12Ko. 

ALS se prtpaic k lancei Word 
tiandler, un traitemenc dc texte 

permettanr TiotsmTnent d'litiliscr 
plufieiiis ienStres, qui scm vcndu 
SO dollais (ct 30 & ccux qui 
iciivcrruiciil Icur disquelLc 
originals MacWrite avant juin). 
LM Software va vendre 
Macspec, traitemtnt dc textc 
destin^ ^ ceujt qui veulent ^Cablii 
des Gpfciilcationfi, des devis et 
dcs notices techniques (avec table 
des maiitrei auiomaiiquc), SSI 
prtpare une vcision pour le Mac 
dc Bon tiaitement d« t«xte 
WordPerfect, et Hsba va 
vendre 100 dollais Haba Word, 
qui peimet, cotnme MacAvtbor 
Tcciituie sur pluslcuis wluimcs, 
avcc afflcjiage k recim 
Du c6ti de Microsoft, on met la 
demiilire main i Wnri(!«, un 
programme qui viendra bient6t 
faire la pige i. JaiCZ 
telfconiinunications, base dc 
donnfes, [ablcuis, cc suitom un 
tiaitement de texie qui fait d^j^ 
saliver avec notamment des 
possibilit^s graphiquoi (dessin, 
tcaei 6e iignes, et«.) iiu^gr^s. Ce 
programme li dcvraie £tre 
ullTa-rapidc, car rfsidant en 
RAM. 

Pour faire bonne iiDpression, 
Silicon Press de Silicon 
Beacb Software pemnet 
d'imprimer Ata fciquetti^e, dcj 
caites cn utilisant Ics donudcs 
extialtes de la plupan des 
lictiiers. En couleurs avec la 
nouvelle Imagewiitci IL 



Bases de donn^es 

Pcndsnt un temps. Ic Mac a 6t£ le 
mi de la base tie donnas : ime 
nouvelle $haque semainc, 
structure dc sea ficWcis oblige. Et 
les fian^aiE avec 4inie 
dlitieiisfoD et MacBase n'ont 
pas 6l6 Ics dcmieis k doniter. Les 
cadences se sent quelque peu 
ralentitf chez nous mais, &ux 
Ibtots-Unis, la gestion de flchicr 
fait toujcui^ floris. Avcc Ic plus 
simple Record Holder de 
Software discoveries. Une 
petite gesiion de flchicr facile ct 
raptde, permettant de disposer de 
champs de 32Ko, d« calculer, 
avcc sauvcgaide automatiquc. Cc 
programme ne permei toutefois 
pas de stockei des images ou des 
dcssins. Prix; : SO dotUis. 
Pour !e double de ce ptix, 
MacRelax d'Haba est une t>as« 
dc (kmnifcs icladonncUc puissantc 
ct Bgifiiblc d'cmplui. Enfin, 
Interlace de Singular 
Software est fgalement, pour 
05 dnllars, une base de donnies 
lelationnelle, en meme temps 
□u'un g^nfrateur d'apptlcalions. 
On y lt»sx visu«Ueiiiciit lc& licis 
encrc les Champs des fictile is, 



exaciemcnt comrae dans 4ime 
dlmensloD. Cette gestion de 
fichieis s'adresse suitout k ceux 
qui manipulent des chiffrcs et des 
calculs complcAcs. 

CAO et graphiques 

Le Macintosh acc&de aux 
possibiUtts des stations de 
cDnc«pdcm graphiAue assistfe inai 
cirrlinateiir Avcc E-2 Draft de 
Bridgeport. Ce logiciel pemict 
dc rcaliscr des projections avcc 
vuc isornetriquc ou oithogunale, 
dc prelever et d'utiliscr les 
dessins stock^s sur des 
ordinateuis centiaux, de ct^er des 
notices techniques, tout en 
utilisant toutea Ics possibilitfa du 
Maciutosh ct nLPtammcnt cn 
important des tenes de Macwiite 
et des dessins de MacDraw. 
Prix : 2495 doUaiS. Seulement... 
Kasy rtn d'KnahlIng 
T«cbtioiogle£, impoitf par 
lafotique est au^ un logicid 
graphiquc pcimctlant dc '^'modcler 
des surfaces cachies" pour 
artistes, architectes, ing6iiieuis, 
etc. Aussi faxnle quSin jcu de pate 
k modeler ^leccronique. Touies 
les peispeccives tiidimension- 
□cllcs sont possibles, ainsi que 
ies ^clairages dlff6rems, etc. 
Tbe Graphics Magician de 
Polarware avail peimis aux 
posscsstura d' Apple // de s'initicr 
k ranimation, k la dicoaipositioii 
des mouvcments ct de crfcr dea 
sequences animfes. Le voici 
disponible poiir te Macintosli 
utiksant toutes see facilit£s. 

Utilitaires 

A noter uae vetsion 1.1 de 
SldeKIek, I«s acceseoiree de 
bureau dc DorlaDd, qui 
foncilonneiit avec le Maclniosti 
Plus. A rcmarqucT encore une 
version de Copy II Plus 
capable eUe aussi d'utiliser le 
Maeintosh Plus el ses disquenes 
SOOK... 

Enfin, HD Utll dc FWB 
Software pent recopier sui un 
disque dur des programmes 
theoriquemenl proteg^. Intercep- 
tant la routine demandant 
Tintroduction 4e I'original, il 
pcnna dc sc passer dc cclui-ci, 
Prix : 90 dollars. A remarquer, 
qu'U est oecessaire d'utiliser un 
patch" patticulier k chaque 
pmgramme in.<d^l£. 

Materiel 

Du "hard" pour Ic Mac. Avcc 
d'abor<S des disques de Warp 
Nine. Un disque dur exteme 
d'uiK capacity de 20 Miga^teis 
poUT 795 dollar^, un disque 
interne k la fa;on de 
I'Hyperdrlve dc 20 M£gas 
aussi pour 895 dollars. Et un 
lecteur de disquettes SOOKo pour 
239 doUais. 

Apple se prepare k sarfit une 
v«ision adaptee k I'inteiface SCSI 
dc son disque dur su moment oO 
ceux-ci comTnencenl k baisser. En 



France aussi lA P-Ing^Dlerle a 
baisse le prix des "Hyperdrive" 
(15400F HT pour le 10 Megas et 
IgQOOF pour le 20 M<5gas). Le 
m^me P Ing^nierie importe Mac 
Palette dc Pixel Softirart. 

Un ensemble com.poEi d'un 
logiciel, d'un moniteur et dune 
uiodificatiou du Macintosh qui 
permct dc transformer le Mac en 
station giaphique professionnelle 
en couleur de h^te qua1it£. 
(resolution de 768 x 576 pixels, 
256 couleuis simultonees dans un 
choix dc 16 miUtoni). Pour 
quclques 150 OOO Francs (Mae 
compris), ce systime permet 
d'obtenir sur I'iciaji, ou suT des 
films photos ou des transparents, 
des images couleuis de haute 
qualiti. E)ommagc que son prix le 
JcscTvc aux "pius". 

A temattjuer, aussi, un buffer 
pour impnmante, le MacBuffer 
d'ErgOtrOh. On peut y installer 
de 256Ko k I m^ga de m^Ttioire, 
et pouvoir ainsi utiliser le Mac 
pendant que I'lmprimantc 
imprime. A noter que ce buffer 
est paitaitemeiit clessini pour 
s 'installer k c6t€ de 
I'Imagewriter I, mais fonctionne 
aussi avec la rvouveUe. II pexmet 
occessoirement i deux Mac de se 
pajtager u oe iin priuiante, 
EnTin, MacMemory done Ics 
produits soot impoitls pai 
C C A M a dijk £tudi£ une 
aiigmcntation de m^moire poiirle 
Macplus. II s'agit d'uns barrstte 
qui s'installe stix rcmplaccmcnt 
disponible dans le nouvcau Mac 
et parte instantanement sa 
mfmoire disponible it 2 Mifgas. 

Et I'AppIe // ? 

A I'exception d'une nouvelle 
Version d'AppIc works (la 1.3) 
tirant paiti du Icctcur de SQORo ct 
des canes d'augmeniaiion de 
m^oire, les nouveautes poiteot 
siutoul stlrle matfiicl. 
Une soci^ti ameiicaine ("The 
Englta«ering Department") a 
developpe une cone permettant su 
!lc d'utiliser Ics iogicicls de 
IIBM. Pour 500 dollars, 
auxqueis il faut ajouter un lecteur 
compatible avec le PC et un 
clavier type IBM. Dommage 
qu'avec la chute des prix des 
compalibics vcnus dc Taiwan, 
rensemble revjetuie d^sormais 
quasimcnt au pn;^ d'un "clone" 
compleL 

Video Technology a tenti de 
vendre aux Etats Unis gou Laser 
123, une ifplique de I'Apple //c 
nanti en pritne d'un pave 
num£rique et d'une connection 
pour relief un supports de slots 
d'exieiu^ion pour 395 dollars. Si 
lc3 douancs amfricaincs n'y ont 
ricn truuvf i redire, Apple a 
privenu que I'i^pareil lelevait dc 
la violation du copyright et 
demand^ aux tribunaux d'en 
interdire la vente. 

Freeware 

Cc sunt tcs logicicls dlspoiiibles 



gratuitemcnt OU moyernia^t une 
petite redcvance, qui compren- 
nent d'utiles accessoires de 
bureau, de.<i Utilitaires, des jeux, 
etc. Aux Etats-Unis, on peut les 
ti^lccharger fscilement. En France 
la pratique commence k $e 
repandre. Les abonncs dc 
Calvados peu vent d'ores et 
^&'ik, k condition d'etre muni d'un 
modsm, d'un logiciel de 
telecommunications evolue 
(commc MacTcl 2}, et d'un 
utiliiaire de conversion (comme 
BinJicx) se procurer un iditeur de 
ressources coratne Res edit, un 
installateur dc touches de 
fonction, comme FK installer, 
«lc. 

En Grande DrctBgDc, Ic Scrveux 
MacttI auquel on peut s'abonncr 
moyennant une cotisation peu 
elevee dc 10 Livres sterling, oSk 
les -m^mes kctviccs avcc tciute une 
foule de logicicls riecnts et 
int^iessancs (notamment la 
version 4.6 du Switcher, etc.). 
On peut se braneher en 1200/75 
bauds sur ce seivetir en appelant 
le 602 817 696 k NottinghM, (de 
France composer d'abord le 19 
puis le 44). Si les lecteurs de 
Pom's connaissent d'autres 
scrveurs reserves ou Mac, qu'ils 
nous en indiquent les 
coordonnies et celles ci seront 
publiees icL 
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POTtiand, Oregon 97201 
Accus . ] n. nip. Ampftrft PrcsIoagSe 
Pare TMhflologiqtia da Bois d'Ainy 
78390 Bois d'Atcy 

AIISJS ' PO Box 865410 PJaao IX 
75086 

Publlili - PO Boi 51966 Boulder 
Cnlnraitn SOWt 

Silicon Beach Softwam - flSSO 
B^Bck Mauntain Koai Suile rO Uox 
261430 San Diego CAS21Id 
Sortware discoveries - 99 
Crestwood Rd Tolland CT 06084 
Ilsba -6711 Valjean Av Van Niiys 
CA gi406 

Singuiir SoKware - 5B%S CaMao 
Diire San Jose CA 95129 
Bridgeport Machines - Btiiitpotl 
CI 

Infotlque - 20 «t 24. me da I'HBtel 
Dieu <1S300 PaaWiK . Tel.: 30 73 14 
IS 

F'WB SuJtware • 2040 Folic Si #213 
San Francisco, CA 94109 
Warp Nine - 3216 Humbolt Av. 
Minneapolis MN SS40f! 
P-Ing^nNrie - 226 Bd Raspail 
7S014 Paris - Tc], 43 21 M 36 
Ergulrun PO - Boi I70I3 MpiS , 
MN 53417 

CCAM ■ 95, rue LafayeUe - 75010 
Paris - Tel. ; 47 SO 22 23 
Calvados . BP 31-07 75327 Paris 
Cedex 07 

Mactel - 15 Einilree av, West 
Bfidgfard, Noltingiiam MGZ 7JV 
Grande Bretape 

G 
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Bibliographic 



Entreprendre et gercr sur 
Macintosh (modeles Multi- 
plan), de Bill Bono et Ben 
Kalkis - Cedic-Nathan - 303 
pages - 225 F - Traduction. 

Ces deux ouvrages regroupent 
des modules de gestion prets a 
utiliscr. Le travail est bien fait et 
la maquette bien congue ; le seul 
probldmc, comme pour tous les 
ouvrages du genre, est le 
suivant : les problemes propres a 
line entreprise peuvent-ils 
facilemem ^tre adaptes a un 
tableau tout pret, ou est-il plus 
rapide de consmiire son propre 
tableau en partant de rien ? Jc 
penche pour la seconde option. 
De toute fa^on, U reste I'interSt 
pedagogique des exemples. 



50 modeles Multiplan pour 
gerer sur Apple II et IBM 

PC, de Fabienne et Philippe 
Gysel - Editions du PSl - 196 
pages - 130 FF. 

Menies remaiques que pour les 
deux ouvrages precedents. A 
noter cependant que certains des 
principes esscnticls dc la bonne 
programmation sur tableurs 
prcsentes dans les ouvrages dc 
H. Thiriez ne sont pas appliques : 



ainsi, la somme d'une sdrie de 
valeurs n'est-elle jamais 
"englobee", ce qui rend les 
foFHiules nettement moins 
adaptables. L'englobage consiste 
h. faire la somme depuis unc 
cellule avant un bloc (si elle ne 
contient pas de valeur) jusqu'^ 
une cellule aprSs ce bloc (idem) 
au lieu de I'effectuer seulement 
entrc les deux homes ; on peut 
ainsi insurer ou detmire ^ liberte 
dans le bloc sans remettrc cn 
cause la validite de la fonnule. 



Bases de donnees sur 

Macintosh, de Frederic Joutcl et 
Eric Tenin - Edimicro - 149 
pages - 88 FF. 

Faites le calcul : 9 "bases de 
donnees" cn moins de 1 30 pages 
- introduction et conclusion 
cxclucs - cela fait moiris de 15 
pages par programme, copies 
d'ccran comprises. Certains 
logiciels sont presentes dans leur 
version US, alors que la vention 
fran^aisc cxiste. II n'y a pas dc 
tableau recapitulatif comparant les 
programmes cn fonction d'un 
certain nombre de crit&res, pas 
d'analysc critique s^rleuse,... 
Bof. 



Utiliser les bases de 
donnees avec dBase II et 
dBase III. de Claude Frasson 
- Editions d'Organisation - 250 
pages. 

Voici en revanche un Uvre bien 
fait, pddagogique, et avec de 
nombreux exemples de 
prolamines. Un seul regret : le 
cote spartiate du maquettage, ce 
qui devient rare aujoajdltui, et la 
couverture & spirale de la 
collection qui, si elle facilite la 
lecture ^ plat Sur une table, nc 
simpUfie pas le rangement dans 
une biblioth^ue. 



Utiliser Wordstar, de 

Maureen A. Culleeney - Editions 
d'Organisation - 271 pages 
- Traduction. 

MSmes remarques que ci-dessus 
en ce qui conceme le maquettage 
et la couverture. Heureusement, 
dans C6 livie, dc nombreux pctits 
dessins at des tableaux encadn^s 
rendeni la lecture plus agreablc. 
Un livre ^ consedler pour un 
appremissage approfoudi dc 
Wordstar, 



G 



Les 19, 20, 21, et 22 juin 1986, Pom's sera a 



Apple 
Expo 



au Pare de la Villette (Grande Halle), porte de 
Pant in a Paris. 
Nous vous aftendons au stand B-10. 

N'oubliez pas de presenter ce numero de Pom's : 
vous entrerez k demi-tarif... 



Un CO II aba rate ur de 
Pom's vend k I'atat 
neuf {sous 
emballaga), un 
lecteuf 140Ko //c 
(2000,00 F), un 
moniteur ffc 
(1300.00 F), un 
stand tic (250,00 F), 
une housse tic 
(375,00 F), un 
joystick Ih-llc 
{375.00 F) et un 
manuel de reference 
He (250.00 F). Ecrire 
h la redaction qui 
Iransmettra. 
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Courrier des Lecteurs 



J'aimerais poser quelques 
qmadorv; au xujet du compilateur 
TASC (compilateur Applesoft 
Sstribui par Microsoft) : 

• comment est organist le 
rangement des chaines de 
(xirac^res ? 

• existe-t-il une routine de 
ne.ttnyagp. memoir e. rapide qui 
fonctionrie avec TASC ? 

• peut-on riicrire les chaines de 
caracteres au meme emplacement 
mimoire si elles ont la meme 
longueur et te meme nam ? 

Dominique (riTELLO. 75017 
Paris 

II est impossible de detailler ici le 
fonctionnement de TASC et en 
particuUer du fichier RUNTIME 
utilise pendant I'execution d'uu 
programme compile. 
Schematiqueraent, on peut 
preciser les points suivants : 

• La methode de rangement des 
variables est comparable ^ celle 
de I'Applesoft : les chaines de 
caractferes sont stockees en 
descendant k partir dc la valour du 
HIMHM. 

• Chaque utilisation de la meme 
variable fait appel k une m6rae 
routine, generee par le 
compilateur, qui permet de 
determiner I'adresse du 
descripteur de la variable. Ce 
dcscripteur pointe lui-meme vers 
la valeiir coiirante de la variable 
precedes de sa longueur. 

Ainsi, par exeraple, le 
programme : 

10 INPUT A$ : PRINT A$ 

apr£s compilation, conticnt a 
partir de radresse $17B0, des 
iiisU'uctions qui appeUent, en des 
points d'entree differents, une 
routine simee en $17DC qui 
gferent tons les acces k la variable 
A$ en precisant que son 
descripteur est en $ 1 7E6. 

Apr£s une execution oii la valeur 
de A$ est une chaine de 40 "A", 



le descripteur pointe vers 
I'adresse $9506. Ici, on y trouve 
$28 (la longueur de la variable), 
suivi de 40 octets contenant $41 
("A"), 

• Contrairement a I'Applesoft, 
TASC ne duplique pas les 
chaines identiques ; I'tristniction : 

20 B$ = A$ 

cree un descripteur qui pointe 
egalement vers I'adresse $95D6. 

• Une routine de nettoyage 
memoire est integree dans TASC 
et appelee sous les mSmes 
conditions que {'Applesoft. Eile 
raffraichit I'occupation des 
chaines et reorganise les 
descripteurs. 



Ay ant df.couve.rt votre revue par 
le numiro 21, je voudrais savoir 
comment sauvegarder. apris les 
avoir saisi au clavier, lesfichiers 
SET et F0RMES4 du programme 
EDIGRAPH. 

J. RUTTANJ, 6mX} Colmar 

Deux instructions suffisent (elles 
peuvenl Sire deduiies des pages 
16-17) : 

ESAVK SET, A$.'}00n, T.$FOO 
BSAVE F0mES4, A$6000, L$2 
ES 



Ayant rerare le programme HGR 
DUMP pour Epson (Pom's 17), 
j'ai obtenu des resultat bizarres 
qui ne corresportdent pas a ce que 
fattendais. 

F. Cabana:, 75011 Paris 

Par omission, I'article ne precisait 
pas que le programme etait 
destine a fonctionner avec une 
carte d'interface parall&le 
compatible avec celle diffusee & 
I'origine par Apple-Seedrin. En 



particulier, il ne peut done 
fonctionner sans modification 
avec une carte serie. 

Si vous connaisscz rasscmbleux, 
les lignes 536 3. 538 du. 
programme source conticnnent 
les instructions d'appel a la carte 
paraUfele : boucle jusqu'a ce que 
I'imprimante so i t prete, puis 
envoi de 8 bits simultanement. 



M'etant remis au Pascal, j'ai 
voulu utiliser les programmes en 
Pascal fourms sur les disquettes 
Pom's, aprAs les avoir transfer's 
d I'aide du programme DASPAC . 
Void ce que j'ai constate (man 
iquipement est classique : Apple 
II h et carte langage) : 

• si on part d'une disquette 
Pascal qui contient deja un ou 
plusieurs fichiers, le programme 
que I'on trouve apr^s trmvfert n'a 
rien d voir avec le programme 
original mais semble etre une 
parti e troriquie d'un des 
programmes existants ; 

• en partant d'une disquette 
fraichement initialisie et ne 
contenant aucun fichier , la date 
du directory est remplacee par des 
"???", ce qui n'est d'ailleurs pas 
genant ; 

■ je n'ai pas rcussi d, transferer le 
programme FOINTEURS du 
Pom's 18 ; je n'ai obtenu que des 
suites incoherentes d'actets, dont 
beaucoup de caracteres de 
controle. 

Andri Pettclat, 75011 Paris 

Nous avons egalement constate 
ce probleme avec BASPAC lors 
de certaines conversions de 
fichiers, bien qu'il ne soit pas 
systematique. Lorsque BASPAC 
parvicnt £ transferer un fichier 
avec succ&s sur une disquette dejS 
utilisee, la date du fichier est 
normalement la mSme que celle 
du fichier precedent du directory; 
en revanche, sur une disquette 
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fraichement initiaUsee, la date est 
encodee de maniere a donner un 
affichagc "???" au catalogue. 

En cas de problemc lors du 
transfert, il est done preferable de 
le recommcncer en ulilisant une 
disquette Pascal dont le directory 
est vide. 

Enfm. le fichier POINTEURS 
contenu sur la disquette Pom's 18 
contenait par erreur le code objet 
el non le source. Vous le 
trouverez sur la disquette Pom's 
de ce numero. 



Parmi vos anciens numiros, en 
existe-t-il un ripondant au 
prublime suivant : d'un cote un 
programme en Pascal, de I'autre 
des fichiers de donnees sur 
disquettes DOS 33. 

Comment puis-je convertir les 
fichiers pour qu'ils puissent etre 
traites vorrectement par le 
programme en Pascal ? 

Jean Claude Decret, 33600 
Fessac 



Le programme BASPAC contenu 
sur toutes les disqueties des 
numeros de Pom's ou se trouvent 
des programmes Pascal peut vous 
aider, 

II faut neanmoins avoir, au 
prealable, converti vos fichiers de 
donnees (probablcment sous 
format texte), en fichier de format 
binaire avec le bit de poids foit de 
chaquc octet h. zero. Lc 
programme Applesoft suivant en 
est une ebauche : 

10 D$ = cans (4} .- A = 4096 
20 Fl$ = "FICHIER. TEXTE" : 

F2$ = "FICHIER.BIN" 
30 PRINT D$ "OPEN" Fl$ 
40 OMERR GOTO 110 
50 PRINT "READ" Fl$ 
60 INPUT A$ 
65 IF A$ = "" THEN 95 
70 FOR I = 1 TO LEN(A$) 
75 B = ASC (MID$ {A$, 1,1} ) : 

IF B > 128 THEN E = B - 

128 

80 POKE A, B 

90 A - A I 1 : NEXT 

95 POKE A, 13 : A = A + 1 



100 GOTO €0 

110 PRINT D$ "CLOSE" Fl$ 
120 PRINT D$ "BSAVE" F2$ " 
,A4096,L" A - 4096 

qu'il faudra adapter si vos 
fichiers texte sont trop gros pour 
etre conienus dans un seul fichier 
binaLre, s'ils contiennent des 
virguies ou sont ^ acc&s direct. 



Cher lectcur du Minimic sur 
Ranee, votre lettre relative i uti 
programme Pascal pour 
impression mathematique ne 
meTstinnne ni votre nom, ni le 
nom de la me... 

Pouvez-vous prendre contact 
avec la redaction ? 



Un lecteur (courrier des lecteurs 
du 21) cherchait d modifier la 
version amiricaine d'AppleWriter 
n pour obtenir sur son 
imprimante le caruct&re «g». II 
xiiffit de modifier 5 octets pour 
realiser le souUgnement avec le 
caract^re *r'«. 

CcA' S octets d. modifier font partie 
du fishier OBJ.APWRT situes 
aux emplacemenis suivants : 

Piste] 2, 

sectew OB, octet AC ; 
sectPAir OA, octet 12 ; 
secieur 09, octet A9 ; 
secteur 09, octet DC ; 
secieur 08, octet 01. 

vous devez d chaqUe fois trouver 
'C9DC. 

II faudra remplacer ces valeurs 
par 'C9 EO' avec votre iditeur de 
secteurs favori, 

J.-U. GUILBERT, Vaujours 

Merci pour cette solution. Doit-on 
aj outer qu'il est indispensable 
d'apportcr cos modification sur 
une copie d'AppleWriter ? 



Plusiews lecteurs udlisara COGO 
nous ont demande que f aire pour 
y apporter des modifications. 

Modifier COGO est possible mais 
penible du fait dc la lenteur de 
Pascal et de la faible capacite des 
disqueties. 

* 11 faut 128Ko. Le ffs avec caite 



Chat Mauve permet de travaiUer 
sur COGO 560, un //c avec une 
autre carte ou un lie ne permettent 
de tTdvailler qu'avec COGO 280. 

* Vous devez utiliser lc syslfcme 
APPLE.PASCAL 1.2, 6^ Ko ou 
128 Ko, peu importe. 

* Vous devrez travailler sur une 
copie de APPLE2 et deux copies 
de COGO (560 ou 280 c'est 
selon). L'une jouera le rflle 
d'APPLEl, I'autre accueillera les 
versions modifiees. 

* En bootant votre disquette 
APPLEl ct utilisant le FILER : 

. Supprimer de APPLE2: les 
fichiers SYSTEM. ASSEM- 
BLER, 6500. OPCODES, 
6500.ERROR et CRUN- 
CHER. 

. Copier tons les fichiers 
TEXT de COGO: sur 
APPLE2: et effacer de COGO: 
tous les fichiers de COGO 
(.TEXT, .CODE et exemple) 
. Copier sut COGO: les 
fichiers suivant de APPLEl: 
SYSTEM.SYNTAX, 
SYSTEM.EDITOR, 
SYSTEM.FILER. 
, Cruncher COGO: et changer 
son nom en APPLEl: par 
cxcmple. 

* APPLEl; contient le systSme 
APPLE 1.2 128 Ko utilise et doit 
gtre maintenant boote, tandis que 
APPLE2: doit etre mis dans le 
lecteur 2. 

* 11 n'y a plus qu'a editer et 
compiler COGO, puis lc sauver 
avec le FILER sur U copie de 
COGO: desiinee ^ accuelllir les 
versions modifiees. 

A noter qu'il ne faut pas oubUer, 
avant de compiler COGO 
560/280 : 

, soit de transferer EDIT 
COGO. CODE dans SYSTEM. 
LIBRARY en utilisant le 
programme LIBRARY de 
APrLE2 ; on cffet, COGO 
utilise rUNIT EDITION, qui 
est tree par EDIT- COGO. 
. soit de mettre dans COGO 
560/280.TEXT : 
USES...,..., (*APPLE2:EDIT 
COGO.CODE*) EDmON; 

a 
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Bon de commande 



Disquetles 

HAIFA source (cf. Pom's 5) a 60.00 F 

H-BASIC (cf, pom's n' 8) a 150,00 F 

MUSIC Ccf. Pom's n° 10) a 80.00 F 

DISK-MANAGER (cf. Pom's 11) a 450,00 F 

BASICIUM Ccf. Pom's n" 13) a ISO.UU F 

E.F.E, 5.0 (cf. Pom's n° 23) 4 200,00 F 

^change E.P.E. S.O (cf. Pom's n° 23) a 80,00 F 

PASCAL (cf. Pom's n" 15) k 80,00 F 

MAX (Moniteur ^tendu) (cf. Pom's n" 18) a 150.00 F 

DOMINOS (cf. Pom's n" 19) i 80,00 F 

MACASTUCES [cf. Pom's n" 21) a 200,00 F 

r-rORMAT H, P-POLICE ]t (cf. Pom's n' 21) i 200,00 F 

COGO (cf Pom's n' 21) ,, a 150,00 F 

Recueils 

N°1, recueil des revoes 1 k 4 a 140,00 F 

Disquettes d'accoiupagneiuent 1 a 4 „„..., ^ 200,00 F 

N°2, recueil des revues S a 8 ^ 140,00 F 

Disquettes d'accoiupagnenient 5 a 8 ,.„.„,,,,, h 200,00 F 

N°a, recueil des reviips 9 a 12 4 140,00 F 

Disquettes d'actompagnement 9 a 12 ^ 200,00 F 

Revues, disquettes 

Revues 4 7 8 {n'9Spuise) ^ 35,00 F 

Revues 10 11 12 n 14 15 16 17 13 19 20 21 22 23 24 ^ 40,00 F 

Disquettes Apple II, 1/e, He 

1/2 3 4 5 6 7 8 9 10 11 12 .....,„,.. i 60,00 F 

13 14 15 16 17 18 19 20 21 22 23 24 

Disquettes Macintosh 

U/15/lfigmup^es a 150.00 F 

17 1J4 19 20 21 22 23 24 ^ 80,00 F 

Mac 'A' k 80,00 F 

AbOnnementS Pmir h niim^m<i a panirrin Tl'l J 

Abonnement k la revue seule 4 200,00 P 

Abonnement revue + disquettes Apple II, //e, //c h 500,00 F 

Abonnement revue + disquettes Macintosh i 600,00 F 

Total TTC : 

S uppWmenl avion hurs CEE : 15, OOF pai num^ro et/ou disqucttc : 

Montatit du reglement : 



Envoyes cc bon ct votrc reglement a : EDITIONS MEV, 64 rae des Chantiers 78000 VERSAILLES 

Nom : 

Adresse : 

Imprinuru Rosay, 94300 Vimtrims, Imprim en Frmtce. Depot Ugai ; imi 1986. A^" 3368 
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PROGRAMMER 

Clefs pour Macintosch 150 FF - 
Basic Microsoft 2.0 sur IVlacintosh 
250 FF - Basic + 80 routines sur 
Apple il 95 FF - les ressources de I'Apple 
He 95 FF - Assembleur de I'Apple 120 FF - 
Inlroduction a ProDOS sur Apple 85 FF - 
System© ProDOS sur Apple 
190 FF - Proorammatlon 
systeme de I'Apple I1 190 FF - 
Apple, modems et serveurs 
130 FF - Clefs pour I'Appfe lie 
et lie 65C02 145 FF. 




Mac Astuces 150 FF - Multfplan 
pour Macintosh 110 FF - Le livre de 
Jazz 220 FF - 50 modeles Multiplan 
pour gerer sur Apple etlBM/PC 130FF - 
Appleworks au travail 160 FF - 
Photogrophie sur Apple et Amstrod 150 FF 



DES LIVRES POUR 



CREER 



JOUER 

102 programmes pour 
Apple 120 FF - Super jeux 
Apple 120 FR 



Programmation des jeux 
Apple II 140 FF - AppSe, 
systemes experts 120 FF - 
animation graphique sur 



d'Arcade sur 
logique et 
- Creation et 
Apple 335 FF. 



DEMANDER LE CATALOGUE GRATUIT a RS.I. Diffusion - B.R 86 ■ 77402 LAGNY CEDEX 



